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Un, d£ los tDnas que, sin dwh, han conlTibuUJ, más 
a popularizar a los A mstrad, por belleza y creatividad, es el de los 
gráficos gestionados por ordenador. Nuestros lectores estarán cansados de 
asombrarse al observar la sorprendente calidad que poseen los gráficos 
de los juegos comerciales, y se preguntarán si existe alguna manera de 
hacer algo así. Resulta que sí existe, es un programa, y nuestro tema 
principal de portada de este número: el generador de "sprites", que así 
se llama este tipo de figuras, caracterizadas por la suavidad de su 
movimiento, así como por un efecto de profundidad muy logrado. 
En la sección de Código Máquina, abordamos un tema relacionado 
con los gróflCos, también. Se trata de cómo manipular el movimiento de 
grandes trozos de la pantalla. . 
El mundo de los lenguajes de programación no queda sumido en el 
olvido. Nuestro artículo de iniciación al «Forth", en su primer 
capítulo, así lo muestra. Será muy útil contando con el intérprete de 
este lenguaje publicado en el número 3 de AMSTRAD Especial. 
En "Mundo del PCw", 'tenemos en este número una nueva versión 
del ya clásico «Facturación y almacén». Como pueden ustedes ver, hay 
para elegir. 
Por último, además de nuestras secciones habituales de "IrifobytesJ) y 
«Catalogo de software para el PCW", les ofrecemos un sensacional 
programa de {(BackgammoT/J>, el popular juego de mesa, realizado 
íntegramente en Basic y al cual, desde esta página, les desafiamos a 
ganar. Observarán que no es fácil 
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INTEGRATED-7 
Siete funciones para 
un solo programa 
Mosaic ha comercializado un 
programa para su Amstrad PC, 
que combina estas siete 
funciones: 
Base de datos relacional, que, 
basada en disco, le ofrece hasta 
cien mil registros por fichero y 
un número ilimitado de ellos. 
DataMailo correo electrónico, 
a través del cual se puede enviar 
una carta genérica a un grupo 
de personas seleccionadas a 
partir de la base de datos. 
Hoja electrónica con 2.047 filas 
y 255 columnas de celdas. 
Cuenta con amplia gama de 
funciones matemáticas, estadísticas, 
financieras, además de las 
lógicas aplicables a los datos 
contenidos en la hoja de trabajo, 
Tratamiento de textos, cuenta 
con un diccionario de 30.000 
palabras de ortografía dudosa y 
que le pennite seleccionar las 
funciones a partir de un menú 
que aparece en pantalla. 
Gráficos empresariales, los crea a 
partir de los datos de la hoja 
electrónica y ofrece dos niveles 
de gráfico, uno de análisis y 
otro con un alto nivel de 
calidad de presentación, 
Comunicaciones, con un modo 
se puede establecer 
comunicación con cualquier 
computador que admita la 
transmisión asincrónica. 
Emulación de terminales, le 
pennite convertir a su 
microcomputador en un 
terminal 100 por 100, capaz de 
conectarse a otro 
microcomputador o a un gran 
computador central. 
Los siete componentes 
funcionan juntos con un nivel 
de flexibilidad tal, que le 
pennite compartir e 
Intercambiar datos entre ellos. 
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para su CPC 
La empresa Zafiro Sotfware 
Division ha comercializado para 
Amstrad una versión exacta del 
juego Trivial Pursuit. Si ya 
había tenido la posibilidad de 
disfrutar de este divertido juego 
de mesa, ahora puede hacerlo a 
través de su ordenador solo o 
con otras personas. 
El juego consiste, a grandes 
rasgos, en ir respondiendo las 
preguntas que el azar dispone a 
través de los dados. Si el 
jugador responde 
acertadamente, su turno 
continua, si no, pasa al 
siguiente. De este modo cada 
jugador irá pasando por una 
serie de dificultades hasta 
alcanzar el cubo central del 
tablero. Si además de ser el 
primero en llegar, contesta 
acertadamente a una pregunta 
elegida por el resto de jugadores 
y ha conseguido caer en cada 
una de las 6 casillas diferentes 
de colores, no dude en que 
usted ha sido el ganador. 
Como novedad frente al juego 
original de tablero, el programa 
aprovecha las características 
sonoras y gráficas de los 
microordenad<?res, con lo que 
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no es de extrañar que nos 
aparezca una de las bonitas 
caras de Hollywood en pantalla, 
al tiempo que se nos interroga 
por su nombre, o que se nos 
pregunte por el autor de una 
música, que nuestro micro 
interpretará para nuestro 
deleite. 
El juego se encuentra dividido 
en dos cintas (también existe 
versión disco): la primera 
cuenta con el programa en sí, y 
una tanda de preguntas. En la 
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segunda cinta se encuentra un 
montón de preguntas más, que 
sólo necesitaremos después de 
haber jugado muchas horas con 
la primera. 
Esta segunda cinta, presenta 
la novedad de ser «multiload», 
una técnica desarrollada por los 
británicos, que pennite que la 
cinta sea leída por un 
Spectrum, un Commodore o un 
Amstrad. 
El precio del programa para 
Amstrad, es de 4.000 ptas. en 
cinta, y 4.500 en disco, y es 
distribuido en nuestro país por 
Zafiro, S. A, 


Creación e impresión de carteles 
en un Amstrad PC 


Todo el proceso de diseño, hasta la impresión de carteles, 
puede realizarse en un Amstrad PC a través del Signwriter. Se 
trata d
 un conjunto de programas, donde cada uno de ellos 
cumple una función muy concreta del proceso. 
Signin ayuda a crear el cartel, darle forma y revisar y 
modificar hasta conseguir el diseño deseado. 
Signout imprime, definiendo los perfiles de cada carácter sin 
importar su tamaño. 
Diseño pennite crear y editar los perfiles de los caracteres en 
la pantalla. 
El resto de los ficheros que componen el Signwriter tratan del 
archivo y procesado de los diferentes fonts de caracteres, 
Distribuye en España, International Computing. Apdo. 601 
de Palma de Mallorca. Tel. (971) 60 25 85. 
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Gráficos profesionales 
al alcance de todos 


Generador de sprites (1) 


Presentamos en este artículo un programa generador de gráficos) llamados 
«sprites») capaz de crear figuras de una calidad comparable a la de los 
mejores Juegos comerciales. 


E stamos acostumbrados a jugar y ver 
programas en los cuales los movimientos que 
realizan sus protagonistas, a través de la pantalla, 
resultan suaves para nuestra vista. 
Esto se consigue gracias a la técnica de 
utilización de sprites, es decir, bloques gráficos 
almacenados en memoria de una forma especial, 
que se trasladan a la pantalla con las oportunas 
rutinas de impresión que hacen que los 
desplazamientos de dichas figuras resulten 
atractivos. 
Realmente, un sprite es cualquier gráfico capaz 
de moverse a través de la pantalla con 
incrementos de un pixel, tanto en sentido vertical 
como en sentido horizontal. 
Pero no podemos permitir que un sprite pueda 
hacer solamente esto, sino que debe hacer 
posible, además, que podamos desplazado a 
través de la pantalla con una relativa rapidez, ya 
que de lo contrario resultaría monótono y 
aburrido. 
Resumiendo todo lo visto hasta el momento, 
podemos decir que un sprite debe ser una figura 
móvil que se desplace con movimientos suaves 
(pixel a pixel) y con una velocidad aceptable. 


Características de la pantalla 


Vamos ahora a estudiar con un poco de 
detenimiento las características de la pantalla de 
nuestro ordenador Amstrad, que es bien distinta 
a la de los demás ordenadores que existen en el 
mercado en estos momentos. 
En primer lugar, podemos observar que la 
memoria reservada para la pantalla es de 16 K, 
la cual resulta realmente extensa si se compara 
con la de otros modelos. 
Otra característica que posee dicha pantalla, es 
el que en un mismo byte se almacena la 
información que nos indica si un pixel debe estar 
apagado o encendido, junto con la del color con 
que se debe encender. 
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Todo esto nos lleva a la conclusión de que el 
movimiento de una figura a través de la pantalla, 
pixel a pixel, resultaría relativamente lento, 
debido a la cantidad de byte s a trasladar para 
cada figura y al elevado número de pixels que 
forman dicha pantalla. 
Existe, además, otro inconveniente, y es 
debido a que la anchura de los pixels en forma 
vertical, no guarda relación con la misma 
anchura en sentido horizontal, siendo la primera 
unas dos veces mayor que la segunda, lo cual 
produciría un movimiento discordante del sprite. 
Por todas estas razones, hemos creído 
conveniente que nuestros sprites se desplacen por 
la pantalla de ocho en ocho pixels en sentido 
horizontal, y de cuatro en cuatro en sentido 
vertical, ya que de esta forma se soluciona el 
problema de la rapidez, siendo además los 
desplazamientos, en un sentido y en otro, 
exactamente iguales. Por supuesto, esta solución 
se ha elegido una vez comprobado que los 
movimientos de dichos sprites se realizan de una 
forma realmente suave y atractiva para nuestra 
vista. 


Para conseguir un movimiento 
más rápido, los sprites se 
desplazan por la pantalla de 8 en 
8 pixels en horizontal, y de 4 en 
4 en vertical 


Hemos solucionado, pues, el problema del 
movimiento de nuestras figuras a través de la 
pantalla, pero debemos solucionar también la 
forma en que nosotros podremos crear nuestros 
propios sprites, y la forma en que éstos se 
deberán almacenar en la memoria de nuestro 
ordenador. 
Vamos a ver cómo deberemos disponer 
nuestros gráficos en la memoria para que la 



rutina de impresión sea capaz de imprimidos en 
pantalla tal y como los hemos creado. 
Esto se realiza en tira de byte s horizontales, 
colocándolas unas detrás de otras a través de la 
memoria, empezando por la primera tira que 
compone el gráfico, y acabando en la última. 
Así pues, si tenemos un sprite de 3 x 2, es 
decir 24 bytes de alto (3 x 8 = 24, ya que cada 
carácter contiene 8 bytes de alto), y 2 bytes de 
ancho, tendría una longitud total de 48 bytes y se 
debería almacenar en memoria de la forma que 
se indica a continuación: 
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MEMORIA 


SPRITE 
1 2 
3 4 


1 ,2,3,4,5, . . .. .. .. . . __ .4 7,48 


47 48 


Almacenamiento del «sprite» en la 
memona. 


Almacenamiento 
en pantalla. 
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El programa generador 


Sólo nos falta, pues, disponer de un programa 
que nos permita crear los sprites y almacenarlos 
en el disco o cinta para disponer de ellos cuando 
se necesiten. 
Así, en este primer capítulo sobre el tema 
de muvimientos de bluques gráficus, hemus 
confeccionado un generador de sprites. 
Dicho programa nos permitirá la creación de 
figuras de cualquier tamaño, hasta un máximo de 
3 x 3 (es decir, de 24 pixels de alto por 24 pixels 
de ancho). 
Veamos en primer lugar cómo se deben 
interpretar las unidades utilizadas para dar las 
dimensiones de un bloque gráfico. 
Cuando hablamos de un gráfico de 2 x 3, nos 
referimos a un bloque de 2 caracteres de alto por 
3 de ancho. Ahora bien, dado que cada carácter 
contiene 8 bytes de altura, tendremos que dicho 
bloque contendrá 8 x 3 = 24 byte s de altura. 
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En cuanto a la anchura del sprite, ésta 
dependerá del modo de pantalla en el que 
deseemos trabajar. Veamos cómo deberá 
interpretarse la anchura del sprite para los 
distintos modos de pantalla. 
Modo 2 . . . . . .. 1 carácter = 1 byte 
Modo 1 ......,. lcarácter = 2 byte s 
Modo O 1 carácter = 4 byte s 
Nosotros, a partir de ahora, siempre 
hablaremos de las dimensiones de un sprite en 
forma de caracteres en función de la altura v 
anchura de dicho sprite. Igualmente, cualquier 
dimensión de sprite que se nos pida en 
alguno de los programas que presentaremos 
en esta serie, deberemos darlos de la misma 
manera. 
Vamos a ver a continuación los bytes que 
ocuparían bloques gráficos en función del modo 
de pantalla en que se desee trabajar. 
a AMSTRAD Semanal 


La animación de gráficos por 
medio de sprites permiten un 
movimiento homogéneo, a modo 
de planos, por la pantalla. 


DIMENSIONES BYTES ALTO BYrES ANCHO TOTAL 
MODO 2 3x2 24 2 48 
MODO 1 3x2 24 4 96 
MODO o 3x2 24 8 192 


El programa 
enerad()r de "prites que hemos 
preparado consta de dos partes: un bloque de 
Basic y utro de Código Máquina, pero debido al 
corto espacio de que disponemos en este artículo, 
y para explicar con una mayor claridad el manejo 
de sprites y el funcionamiento del programa 
generador que presentamos, hemos creído 
conveniente dividirlo en dos capítulos. 
Así pues, en este primero vamos a ver cómo 
funciona la parte de Basic que aparece listada al 
final del artículo correspondiente a la primera 
parte del programa generador de sprites. 
En primer lugar, este programa Basic cargará 
la parte de Código Máquina que presentaremos 
en el siguiente capítulo con el listado 
correspondiente. 
Seguidamente, nos pedirá la altura y anchura 
del sprite que deseamos generar, es decir, 
deberemos dar las dimensiones del sprite en 
forma de caracteres, teniendo en cuenta que el 
mayor bloque gráfico deberá ser de 3 x 3, 
A continuación, se encarga de imprimir en 
pantalla todas las opciones posibles que nos 
ofrece el generador de sprites e inicializa el 
bloque de Código Máquina. 
Una vez hecho esto, entramos en el bucle 
principal del programa Basic, el cual llama a la 
rutina en Código Máquina, y chequea las teclas 
"S" y "E", que corresponden a las opciones 
ejecutadas desde Basic. 
Veamos ahora cómo actúan las dos funciones 
que son ejecutadas desde el programa Basic. 
La opción correspondiente a la tecla "E", nos 
permitirá reinicializar el programa con unas 
dimensiones nuevas para el sprite. 
La otra opción nos permitirá salvar, en disco o 
cinta, el sprite que hemos creado. 
Cuando se elija esta última opción, se nos 
pedirá en primer lugar para qué modo de 
pantalla deseamos utilizar el bloque gráfico que 
se ha generado. 
Esto se debe indicar, ya que para cada modo 
de pantalla los datos para nuestro sprite deberán 
ser distintos debido a la diferencia que existe 
entre ellos. 
De esta forma, si nosotros salvamos un sprite 
en modo 1 y deseamos utilizarlo en modo O, 
observaremos que la figura que se obtendrá en 
pantalla aparecerá desfigurada, debido a la 
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diferente información que se encuentra en los 
byte s de pantalla para cada modo. 
Una vez introducido el modo de pantalla, se 
nos pedirá el nombre de nuestro sprite. 
Otro factor que deberemos tener presente, es 
que un mismo sprite será de distinta longitud 
según el modo de pantalla que se elija. 
De esta forma, si la longitud de un sprite en 
modo 2 es "L", para modo 1 será "2*L", Y 
para modo O será de "4 * L" . 
Para conocer en cualquier momento en qué 
modo de pantalla están salvados nuestros 
gráficos, se adiciona al nombre un indicador. 
Así pues, si salvamos un mismo sprite en cada 
uno de los diferentes modos de pantalla, al que 
hemos llamado "SPRITE", con una longitud de 
8 byte s en modo 2, obtendremos los siguientes 
resultados en el disco o cinta: 


NOTA IMPORTANTE 
El listado Basic que se adjunta en el artículo 
no será ejecutable hasta que no se 
disponga de la Rutina en Código Máquina 
que aparecerá en el capítulo II de 
Generador de Sprites. - 


. 
SPRITE. SP2 
SPRITE. SP 1 
I - 
SPRITE. SPO 


Por último, diremos que este bloque de Basic, 
no será ejecutable hasta que no se disponga de la 
rutina en Código Máquina que aparecerá en el 
siguiente artículo dedicado a la utilización de 
sprites. 


SPRIT.BAS 


4 


10 MEMORY &8FFF:LOAO"6ENSPRIT,BIN",&9 
000 
20 1'I00E 1 
30 CALL &9358 
40 CLEAR INPUT 
50 LOCATE l,10:INPUT .ANCHO SPRITE.., 
.,A 
60 IF A(l OR A}3 THEN 60TO 50 
70 HODE 1 
80 LOCATE l,10:INPUT "ALTO SPRITE..." 
,B 
90 IF B(l OR B}3 THEN 60TO 80 
100 POKE &9001,A:POKE &9002,B 
110 L2=AtBt8:L1=L2t2:l3=L2t4 
120 MODE 2 
130 LOCA TE 50,1:PRINT " 1'1000 2 MODO 
1 "000 O. 
140 LOCA TE 55,10:PRINT CHRS(240)j"... 
. . , . . ARRIBA" 
150 LOCA TE 55,11:PRINT CHR$(241)j.". 
.,. ,ABAJO" 
160 LOCA TE 55,12:PRINT CHRS(242)j".., 
. IZQUIERDA" 
170 LDCATE 55,13:PRINT CHRS(243)j.,.. 
. . . . . DERECHA" 
180 lOCATE 55,14:PRINT "COPIA. . PINT 
AR" 
190 LOCATE 55,15:PRINT .CONTROL.,BORR 
AR" 
200 LOCATE 55,16:PRINT "S,., ,.', .SORR 



 
/ 

 


AR TODO. 
210 LOCA TE 55,17:PRINT "S." ,SAVE 


220 LOCA TE 55,18:PRINT "C. .. .EMPE 
ZAR" 
230 CALL &9000 
240 CALL &906B 
250 IF INKEY(60)=0 THEN 60TO 280 
260 IF INKEY(62)=0 THEN GOTO 20 
270 60TO 240 
280 CLEAR INPUT:LOCATE l,25:INPUT 
SA 
LVAR SPRITE EN 1'1000", ,.,1'1 
290 IF 1'1<1 OR 1'1)2 THEN GOSUB 350:60TO 
280 
300 GOSUB 370 
310 IF 1'1=2 THEN AS=AS+".SP2":SAVE AS, 
B,&946B,L2 
320 IF 1'1=1 THEN AS=AS+».SPl n :SAVE AS, 
B,&9663,L1 
330 IF 1'1=0 THEN AS=As+n.SPon:SAVE AS, 
B,&96F3,LO 
340 GOSUS 350:GOTO 240 
350 LOCA TE 1,25:PRINT " 


360 RETURN 
370 CLEAR INPUT:GOSUB 350:LOCATE 1,25 
:INPUT.NOI'IBRE SPRITE. .. .,A$:IF LEN( 
AS)}6 THEN GOSUB 350:60TO 370 
380 RETURN 
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CONTROL DE STOCK 
CON ALBARÁN 
. ..- - 


I 


de NOVU5 So 
N ovus Software pone a 
disposición de cualquier 
empresa con almacén este 
Control de Stock,con 
posibilidad de emitir 
albaranes a través de la 
impresora de cualquier PCW 
8256/8512. 
El programa dispone de un 
control de acceso por 
palabra, de paso que impide 
rigurosamente la 
manipulación del programa y 
ficheros a personas no 
autorizadas, con lo que se 
garantiza que el contenido de 
los ficheros (precios de costo 
y venta, cantidades en 
existencia, proveedores, etc.), 
sólo lo podrán alterar los 
responsables de ello. 
Cuenta con un control 
exacto del día y hora en que 
se trabajó con los ficheros, ya 
que quedan reflejados dichos 
datos en el disco 
automáticamente al acceder a 
ellos, diferenciando si hubo o 
no modificación en aquel 
momento. 
Puede manejar hasta 1.500 
artículos y 120 proveedores, 
cantidad tanto de unos como 
de otros, que tras estudios 
sobre empresas de distinto 
ámbito, se ha constatado más 
que suficiente para cubrir las 
necesidades de la inmensa 
mayoría de los usuarios. 
Controla las existencias en 
almacén, en función al 
número de ellas que se 
estime como óptimo en 
cuanto a stock mínimo y 
máximo necesario para una 
mayor rentabilidad. 
Emite un listado de 
reposición de los artículos 
que se encuentren bajo 
mínimos, agrupándolos por 
proveedor, lo que economiza 
tiempo y trabajo al efectuar 
nuevos pedidos. 
Actualiza automáticamente 
el precio de los artículos 
existentes en el almacén en 



 


.
 


,s, 


función de los que tengan las 
reposICIones. 
Facilidad de corrección de 
las cantidades máximas y 
mínimas recomendables a 
tener en existencia en 
función de las circunstancias 
del momento. 
Posibilidad de emisión a 
voluntad de albaranes de 
salida, presentando tanto la 
propia razón social del 
usuario como todos los datos 
del comprador, siendo el 
albarán paginado en aquellos 
casos que así lo requiera el 
número de los artículos 
pedidos. 
Emisión de Listado de 
Inventario, en el que se 
reflejan todos los datos del 
artículo, con casilla para 
anotación manual de las 
existencias vistas, y sumas 
totales del valor del stock en 
costo y en venta a fin de su 
cotejo por el departamento 
correspondiente. 
Permite, asímismo, la 
emisión de un Listado de 
Reposición paginado en el 
que se agrupan los artículos 
ordenadamente por su 
proveedor, lo que facilita 
enormemente el solicitar la 
reposición de los mismos. El 
listado figura con la fecha de 
la solicitud de la reposición, 
lo que permite enlazado en 
fechas posteriores, 
manteniendo las cantidades 
reales del momento de la 
petición de reposición al 
programa, 
Por último, cuenta 
también con un Listado de 
Proveedores en el que 
figurará todo lo registrado en 


el fichero de éstos: nombre, 
domicilio, teléfono y 
localidad, 


de Linneo Software 
Este programa permite 
manejar una contabilidad 
I general por partida doble, 
pudiendo además ser 
complementado por otros 
interesantes programas que 
enlazan con el mismo, como 
son el LIV A UN y el ALF A 
3 LINNEO, que 
posteriormente 
comentaremos, si bien cada 
uno de ellos goza de una 
autonomía propia. 
Las posibilidades de 
manejo que nos ofrece el 
PLACON incluye la 
elaboración del Diaro, el 
Mayor o fichas de cuentas, 
tres modelos de balances de 
sumas y saldos o 
comprobación, el balance de 
situación (definible por el 
usuario), dos modelos de 
explotación y la previsión de 
vencimientos. 
Por otra parte, la 
engorrosa tarea de contable 
queda ventajosamente 
simplificada mediante el 
control que el programa 
establece, para que los datos 
que se introduzcan cumplan 
determinadas condiciones: 
impide que se produ
ca 
duplicación de cuentas, que 
se borre una cuenta con 
saldo, controla que cuadren 
los asientos, etc. 
Entre las características 
más interesantes que 
podemos destacar, tenemos la 
anotación de asientos rápida 
y versátil, reconstruir una 
contabilidad con errores 
aprovechando los asientos 
correctos, clasifica por 
vencimientos los cobros y 
pagos, permite siete niveles 
de cuentas de forma que no 
es preciso dar de alta un 
nivel para totalizar con él. 
Se incluyen múltiples 
opciones de trabajo tales 
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como valores por defecto, 
que son considerados con 
sólo pulsar la tecla 
"INTRO", entrada de datos 
a ficheros auxiliares (no 
actualizados), así como la 
posibilidad de regeneración 
de índices en caso de cortes 
en el suministro eléctrico, 
entre otras, sin excluir la alta 
relación calidad-precio. 


tlNEO 
e Linneo Software 
Este es uno de los dos 
programas que se consolida 
con la contabilidad 
PLACON PLUS, si bien la 
finalidad inmediata del 
mismQes la programación de 
almacén y facturación con 
liquidación de IV A (IV A 
repercutido e IV A 
soportado). 
Mediante la introducción 
de clientes, artículos y 
proveedores, realiza compras 
a estos últimos, que anota 
con el porcentaje del IV A 
soportado y por otra parte, 
vende a sus clientes artículos 
(que estén o no en el 
almacén), estableciendo dos 
formas de facturación: 
facturación inmediata y 
facturación diferida. 
La facturación inmediata 
se establece en el momento 
de la venta, mientras que la 
facturación diferida realiza 
una factura de todos los 
artículos introducidos con 
albarán de un determinado 
cliente. 
Los listados incluyen 
entradas al almacén, salidas, 
resumen de facturación, 
clientes, gestión...; emitiendo 
facturas, albaranes y recibos. 
El interés comercial del 
ALF A 3 LINNEO es 
manifiesto, permite el control 
de clientes, proveedores y 
artículos. 
Todos los datos incluidos 
en el listado son susceptibles 
de ser modificados, tales 
como: clientes, proveedores, 
artículos o facturas, así como 


12 AMSTRAD !-''emanal 


L 


I
O<;O 
C
\
 
de 

OFTWAR 
, PCW 


si se trata de descuentos, si 
bien a cada cliente se le 
puede atribuir un descuento 
según el tipo de artículo. 
Por otra parte, en 
cualquier instante, es posible 
pedir un listado sobre 
cualquier dato que pueda ser 
útil para realizar un recuento 
estadístico, lo cual resulta de 
máxima operatividad y 
eficacia sobre aspectos de 
mejora o reestructuración 
que quieran instaurarse a 
nivel comercial. 


L/VA-L/N 


de Linneo Software 
Con la finalidad de 
facilitar la ardua tarea de 
llevar la gestión del IV A se 
ha creado el programa 
LIVA-LIN. 
Su interés se ha centrado 
en transformar el complicado 
y lento proceso de gestión de 
dicho impuesto en un 
ejercicio rápido y sencillo, 
con el atractivo adicional de 
poder ser incorporado y 
complementar el programa 
de contabilidad PLACON 
PLUS, que como ya 
mencionábamos, amplía de 
esta forma sus 
potencialidades de manejo y 
aplicaciones. 
De cualquier forma es 
evidente el interés que por sí 
mismo despierta este 
programa, permitiendo la 
realización de diversos 
informes como listado de 
clientes y proveedores, así 
como diario de facturas 
emitidas y recibidas, que se 
obtienen con un claro ahorro 


j 


de tiempo y trabajo. 
Así mismo, el programa 
permite la modificación de 
cualquier campo del fichero, 
como la admisión de hasta 
tres apuntes diferentes con 
relación a cada factura, sin 
que la introducción de datos 
resulte una tarea complicada. 


A 
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de Master Computer 
La aplicación más 
ampliamente conocida d'" la 
impresión de etiquetas se 
establece en la 
correspondencia de cualquier 
empresa, pero cada vez es 
mayor el número de 
aplicaciones que se le han 
concedido, no sólo a nivel de 
la gran empresa, sino 
también del pequeño 
comerCiO. 
Ello ha sido facilitado 
gracias a la amplia difusión 
de que gozan los ordenadores 
Amstrad 8256 y 8512, para 
los cuales este programa ha 
sido pensado, 
El Masterlocoscript 
permite combinar con 
facilidad el manejo de una 
base de datos potente, 
sencilla de manejar, con la 
impresión de etiquetas y con 
cualquier carta en un 
procesador de texto 
LOCOSCRIPT. 
El usuario define el 
formato de la ficha y el 
acceso a la información 
contenida en cada una de 
ellas, puede realizarse por 
uno o vanos campos y, 
además, indicarle un 
condicionante de búsqueda 
para cada uno de ellos. 
De igual forma es posible 
seleccionar los datos de las 
fichas o los campos que se 
desea imprimir en las 
etiquetas. 
La otra facilidad que da el 
programa consiste en la 
posibilidad de combinar los 
datos de las fichas con una 


) 



carta realizada con el 
procesador de textos 
LOCOSCRIPT, intercalando 
de esta forma los datos de las 
fichas con el texto y, a su 
vez, poder indicar el número 
de copias que desea del 
mismo, con los datos ya 
mezclados. 


MASTERTEXT 


de Mastersoft 
Cuando accedemos al 
procesador de texto 
MASTER TEXT 


. 


, 
observamos cómo las 
posibilidades que nos ofrece 
son múltiples y de gran 
utilidad, con un manejo del 
mismo, sencillo, 
Una vez que nos ponemos 
ante él, el menú de opciones 
nos aparece en la pantalla 
con sólo pulsar la tecla 
"COPY" . 
Las opciones que nos 
muestra son todas las 
requeridas para que el 
trabajo nos resulte cómodo y 
poco arduo, siendo las 
siguientes: imprimir páginas, 
opciones de impresora, 
borrar/cambiar de página, 
guardar/llamar páginas, 
cambiar márgenes, listar 
páginas, opciones especiales, 
continuar y fin de trabajo, 
La longitud máxima de los 
textos es de nueve páginas, 
cada una de las cuales es de 
veinte líneas y, a su vez, 
cada línea es de ochenta 
caracteres. 
A continuación, 
brevemente, exponemos en 
qué consiste cada una de 
estas operaciones y las 
posibilidades que ofrece. 
Antes de iniciar un texto 
debe procederse a marcar los 
márgenes deseados, pero en 
cualquier momento podemos 
variar los mismos con sólo 
acceder a la opción deseada. 
De la misma forma, el 
listado de páginas puede 
establecerse, bien desde la 
primera página o bien desde 
la página que nos 


encontremos trabajando; pero 
si por cualquier motivo 
hemos interrumpido el 
trabajo, con la opción 
«continuar» podemos volver a 
integrarnos al texto sin tener 
que realizar ningún tipo de 
ajuste. 
Al finalizar el trabajo 
procederemos a su grabado, 
puesto que de no hacerlo al 
pulsar la opción «fin de 
trabajo» el texto que se 
encontrara en la pantalla, no 
grabado, se borrará, 
Por otra parte, para 
imprimir el texto podemos 
elegir entre imprimir todas 
las páginas, una sóla página, 
una parte de cada página o 
una parte de varias páginas, 
y ello se realiza con sólo 
delimitar, mediante 
coordenadas, la página, línea 
y posición de los puntos 
deseados. 
Del mismo modo, el 
procesador de textos ofrece 
«opciones de impresora» para 
poder variar el tipo de 
impresión según precisemos o 
deseemos, bien en doble 
impresión, impresión 
destacada, saltar de línea, 
saltar de página, cambiar el 
espacio entre líneas o bien 
variar el tipo de letra según 
desee el usuario. 
Como cualquier procesador 
de textos que se precie el 
MASTER TEXT, posee las 
opciones «borrar/cambiar de 
página» y «guardar/llamar 
página». 
La utilidad de estas 
operaciones es de 
imprescindible ayuda en la 
redacción de un texto, y 
resulta impensable por la 
reducción de tiempo de 
trabajo que comporta. 
La opción «borrar/cambiar 
de página» sirve para borrar 
una o todas las páginas y 
cambiar a la página que 
deseemos, mientras que por 
si cualquier motivo queremos 
hacer la modificación de un 
texto ya grabado, podemos 
optar por grabar/llamar una 


sóla página, todas las páginas 
o unas páginas determinadas. 
Por último, mencionar que 
MASTER TEXT también 
cuenta con opciones 
especiales que nos permiten 
ver el contenido del disco o 
cassette con el que estemos 
trabajando, así como elegir 
entre disco o cassette, 


. . 


CONTROL DE; STOCK 
CON ALBARAN 
de Novus Software 
Precio: 11.700 ptas. 
Hacienda de Pavones, 110 
28030 Madrid 
Tel. (91) 7734064 
PLACON PLUS 
de Linneo Software Microbyte 
Precio: 29.900 
Plaza República de Ecuador, 6 
28016 Madrid 


ALFA-3 LINNEO 
de Linneo Software 
Preezo: sin confirmar 
Plaza República de Ecuador, 6 
28016 Madrid 


LIVA-LIN 
de Linneo Software 
Precio: sin confirmar 
Plaza República de Ecuador, 6 
28016 Madrid 
MASTERLOCOSCRIPT-l 
de Master Soft 
Precio' 14. 900 
Plaza de Cristo Rey, 3 
28040 Madrid 
Tel. (91) 244 59 43 
MASTERTEXT 
de Master Soft 
Precio: 4.800 . 
Centro Comercial, ClUdad Santo 
Domingo 
Carretera de Burgos, km 28 
28120 Madrid 
Tel. (91) 6221289 
L 
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Juego del Backgammon 
Es difícil conseguir que un ordenador juegue a algo de forma 
inteligen
 y que, además, los gráficos y sonidos que acompañen al 
programa responsable sean de alta calidad Sin embargo, no es 
imposible y retamos, en el mejor sentido de la palabra, a nuestros 
lectores a que intenten ganar a nuestro programa de «Backgammon». 


E ste programa que juega al conocido 
pasatiempo-culto británico que es el 
Backgammon, es un juego bipersonal, y en él, el 
ordenador realiza la función de oponente. 
El manejo de las fichas es muy sencillo, Como 
siempre, salvo en el caso de que saquemos 
dobles, tiraremos dos veces, y tendremos que 
mover también dos veces, la primera con .el valor 
de un dado y la segunda con el del otro. Para 
indicar el primer movimiento pulsaremos la letra 
perteneciente a la casilla en que se encuentre la 
ficha a mover y, finalmente, el número de puntos 
que queremos avanzar, y que 


deberá pertenecer al valor que nos marque uno 
de los dos dados. En el caso de que no podamos, 
o no deseemos mover, pulsaremos simplemente la 
tecla ENTER. 
La realización y presentación del programa es 
bastante buena y la estrategia de juego levantaría 
dolores de cabeza a los mejores aficionados a esta 
noble competición. 
A continuación, damos las instrucciones 
completas de este juego, que esperamos llene 
muchas de las tardes lluviosas de invierno, 
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JUGADOR FICHAS BLANCAS 
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REGLAS DEL JUEGO 


Para empezar cada jugador 
tiene 15 fichas de color 
contrario a su oponente. (Para 
colocar las fichas ver figura.) 
El tablero está dividido en 
cuatro partes, cada una de ellas 
tiene seis cuñas, alternando en 
color. En el centro del tablero 
está la barra que divide la casa 
propia de ambos jugadores, 
(Ver figura.) 
Las fichas se colocan de la 
manera ilustrada en la figura y 
se mueven en el sentido 
indicado por las flechas. 
El objetivo del juego consiste 
en llevar todas las 15 fichas a 
nuestra propia casa, 
moviéndolas sólo y 
exclusivamente en el sentido 
indicado por las flechas, y una 
vez metidas todas, se recogen 
del tablero. El primero en 
sacadas todas es el ganador. 
Para comenzar el juego, cada 
jugador lanza 


, 



 



simuladamente un solo dado, y el que obtiene el 
número más alto mueve primero, valiéndose de 
la combinación arrojada por ambos jugadores. 
En caso de darse el mismo número, deben, 
obviamente, volver. 
La movida de la ficha es posible sólo en el 
caso que la línea de llegada no esté ocupada por 
dos o más fichas adversarias, en las líneas libres 
u ocupadas por las propias fichas pueden pararse 
cualquier número de fichas (aun más de 5). 
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El lanzamiento de un "doble» (1-1, 2-2, 3-3, 4-4, 
etc.), premia al jugador adjudicándole dos 
movimientos por cada dado (esto es: un 6-6 
permite mover dos veces 6 espacios, más dos 
veces 6 espacios, un 3-3 permite mover dos veces 
3 espacios, más dos veces 3 espacios). 
Si en la línea de llegada se encuentra una sola 
ficha adversaria (ficha vulnerable), ésta podrá ser 
«comida», o sea expulsada del tablero de juego y 
puesta sobre el borde central (barra). La ficha 
«comida» entra nuevamente en juego partiendo 
de la casa adversaria, utilizando el valor de uno 
de los dos dados, a voluntad del jugador y según 
la posibilidad de entrada, La entrada de la ficha 
en la casa adversaria tiene lugar contando las 
líneas de 1 a 6 en el sentido propio de marcha, 
La reentrada de la ficha «comida» cuesta así al 
jugador el valor de un dado, además de la 
posición precedentemente alcanzada por la misma 
ficha, Obviamente, el segundo dado podrá ser 
utilizado por otra movida. 
No es posible la reentrada, si ambos valores 
expresados por los dados lanzados indican dos 
posiciones ocupadas por dos o más fichas 
adversarias, El jugador pierde entonces un 


oRo CPC 


turno. 
Una táctica importante es ir 
formando una buena defensa en su propia casa, 
de modo que al comer una ficha adversaria le 
costará trabajo a ésta volver a entrar en 
juego. No olvide que la defensa de cada cuña 
consiste en tener más de una ficha sobre 
ella. 
N o se pueden mover las fichas propias en 
juego, si no se han hecho reentrar en juego todas 
las fichas propias presentes sobre la barra; 
obviamente si se cae en la reentrada sobre una 
ficha vulnerable del adversario, ésta puede ser 
«comida» , 
U na vez que todas las fichas se hallen en la 
propia casa, se inicia la fase final del juego, que 
consiste en la «recogida» de las fichas mismas 
La «recogida» es la salida definitiva de las 
fichas de la propia casa. Tiene lugar utilizando el 
lanzamiento normal de los dados, numerando las 
líneas de la propia casa de 6 al, partiendo del 
borde o barra central. 
La dinámica de la recogida usa los valores 
expresados por cada dado (es decir, si se lanza 
un 4-3 puede retirarse una ficha de la línea 4 y 
otra de la línea 3). En caso que no hubiese fichas 
sobre las líneas indicadas por los dados, puede 
utilizarse el valor de cada dado para recoger una 
ficha de la línea inmediatamente inferior, Esto no 
puede hacerse si existen fichas sobre las 
líneas superiores, o sea, cuando los dados 
pueden ser utilizados para desplazar estas fichas. 
No es obligatorio recoger una ficha si puede 
moverse otra de ellas según el entero número 
lanzado a utilizar (es decir: realizar el 5 
desplazando una ficha de la posición 6 a la 
posición 1). 
Se gana una partida simPle cuando el adversario 
ha llevado todas las fichas a su casa y ha 
«recogido» por lo menos una ficha. 
Se gana una partida doble cuando el adversario no 
ha conseguido recoger ninguna de sus propias 
fichas. 
Se gana una partida triple cuando el adversario 
tiene al menos una ficha en la casa del ganador o 
sobre la barra. 
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10 RE" Baekgammon 
20 RE" 
30 RE" (e) Amstrad Semanal 
40 RE" 
SO CALL &BC02:ep=231:pp=230:sp=32:SPE 
ED WRITE 1 
60 eseore=O:pseore=O:game=O:ml$=.PULS 
A UNA TECLA" 
70 help=0:m2$=SPACE$(11)+.« "+ml$+" 
»":m3$="Pulsa ENTER para Menu" 
SO INK O,O:INK l,24:INK 2,l:INK 3,6:1 
NK 4,9:INK 5,8 
90 DIM eol(24,3),order(24,2),hie(24,2 
) ,hip(24,2) 
100 60SUB 2960:BORDER O:GDSUB 3040 
113 IF a=2 THEN GOSUB 2740:GOSUB 2550 
EL SE pn=15:en=15:hp=0:he=0:GOSUB 317 
O:GOSUB 2740:GOSUB 2630 
120 REM ***************************** 
*u 
130 RE" **** BUCLE PRINCIPAL **** 
140 WHILE pn}O ANO en}O 
150 PAPER O 
160 lOCA TE 13,22:PRINT en:lOCAT£ 13,2 
3:PRINT pn 
170 IF loss=O ANO a{)2 THEN GOSUB 8BO 
ELSE IF loss=O THEN a=O:GOSUB 940 
1SO loss=O 
190 IF help THEN GOSUB 3040:help=0:a= 
2:GOm 110 
200 REM **** COMP MOVE **** 
210 IF pn TH£N LOCA TE 1,25:PRINT"TIRA 
RE MI DADO AHORA. "SPC(15) 
220 FOR f=l Tú 2QOO:NEXT 
230 lOCATE 1,25:PRINT SPC(39) 
240 GOSUB 2190:60SUB 2250:REM arroja 
y pinta el dado 
250 IF double THEN 1=4 ElSE m=2 
260 ett=m+l:ply=O 
270 WHILE m}O AND pn}O AND en)O 
280 LOCATE l,25:PRINT D Mi Movimienlo"e 
U-m 
290 IF (double=O ANO m=2) DR double T 
HEN rn=r(l) ELSE IF double=O ANO m=1 
THEN rn=r(2) 
:301) e eg= 1 
310 FOR x=7 TO 24 
320 IF col(x,l) OR he THEN ceg=O 
330 NEXT 
340 REM t**! Movimienlo eorlos **** 
350 counl=O:flag=O 
360 IF eeg THEN GOSUB 1320:REH fin de 
1 juego 
370 IF eeg ANO flag=O THEN 420 ELSE 1 
F flag THEN 540 
380 IF he THEN GOSUB 12BO:GOTO 420 
390 FOR poinl=24 TO 1 STEP-l 
400 IF eol(poinl,l)}O ANO (poinl-rn» 
O THEN GOSUB 2010:REM prioridad 
410 NEXT 


420 IF eount=O THEN 630 
430 REM **** encuentra la mejor jugad 
a UU 
440 best=O:ct=O 
450 FOR z=1 TO eounl 
460 IF order(z,l»best THEN best=orde 
r(z,1) 
470 NEn 
4BO FúR z=l TD eount 
490 IF order(z,l)=best THEN el=et+l:m 
oves(et)=order(z,2) 
500 NEXT 
510 IF et=l THEN poinl=moves(l) ElSE 
poinl=moves(INT(RNDtet)+l) 
520 RE" *t** elige jugada al azar *** 
* 
530 ply=ply+rn:LOCATE 37,22:PRINT ply 
540 IF poinl(25 THEN lOCAT£ 26,22:PRI 
NT CHR$(poinl+64) EL SE lDCATE 26,22:P 
RINT"*D 
550 FOR f=l TD 1000:NEXT 
560 IF hc=O THEN GOSUS 1430:REM Quila 
pieza 
570 poinl=point-rn:PAPER O 
580 IF flag=O THEN LOCA TE 26,23:PRINT 
CHR$(poinl+64} ELSE LOCATE 26,23:PRI 
NT n }. 
590 FOR f=l TD 1000:NEXT 
600 IF flag=O THEN GOSUB 1530:REM ala 
de pIeza 
610 PAPER O 
620 IF hp THEN lOCA TE 20,2:PRINT D Esla 
s DHIT 5 ELSE lOCA TE 20,2:PRINT SPC(10 
) 
630 m=m-l:WEND 
640 WEND 
6bO ktM t¡************************;** 
:¡; 
660 REM ***** fin ***** 
670 hCl=O:hpi=O 
680 FOR x=19 TO 24 
690 IF col(x,!) THEN hei=l 
700 NEXT 
710 FOR x=l TD 6 
720 IF coI(x,2} THEN hpi=l 
730 NEXT:LOCATE 13,2 
740 IF en=O ANO (hp DR hpi)THEN e5eor 
e=cseore+3:PRINTD
I BACKGA
MON" 
750 IF pn=O ANO (he OR hei)THEN pseor 
e=pscore+3:PRINT"TU BACKGAMHON" 
760 IF hp=O ANO hpi=O AND pn=15 THEN 
eseore=escore+2:PRINT"
I GAMMON" 
770 IF he=O ANO hei=O ANO en=15 THEN 
pscore=pseore+2:PRINT"TU GAMMON. 
780 IF en=O ANO hp=O ANO pn(15 THEN e 
seore=esseore+l:PRINT"VO GANO" 
790 IF pn=O ANO hc=O ANO en{15 THEN p 
seore=psseore+l:PRINT"TU GANAS. 
BOO FOR z=300 TO 1 STEP-21:S0UNO 1,30 
O+z:SOUND l,300-z:S0UND 1,119:NEXT 
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810 PAPER 2:CLS:game=game+l 
B20 LúCATE 13,3:PRINT.JUEGO:"game:lOC 
ATE 13,4:PRINT STRING$(7,"'D) 
830 LOCA TE 5,10:PRINT "Tu Seore:"pseo 


re 
840 LOCA TE 5,15:PRINT" Mi Seore:Des 


(ore 


850 LúCATE 2,24:PRINT ml$" para olro 
juego. . , ..' D 
860 IF INKEV$=". THEN 860 ELSE GOTO ! 
10 
870 REM 
880 REM **** MOVIMIENTO DEL JUGADOR * 
*** 
890 REM 
900 LOCA TE 1,25:PRINT SPC(39):ply=0 
910 lOCATE 1,25:PRINT mlS 5 para arroj 
ar tu dado. " 
920 IF INKEY$=DD TH£N 920 ELSE GOSUB 
2190 
930 IF double THEN m=4 ELSE m=2 
940 ctt=m+l:GOSUB 2250 
950 wHILE m}O:lDCATE 37,22:PRINT ply 


%0 peg=i 
970 FOR z=1 TD lB 
980 IF col(z,2) OR hp THEN peg=O 
990 NEXT 
1000 LOCATE 1,25:PRINTBAPUNiA Y MUtVE 
?"ett-llj:INPUTDrZ PARA AYLiDAJ .,pm 
$ 
1010 pmS=UPP£RS(pM$) 
1020 IF pm$=". THEN 1220 
1030 IF pMS="Z" THEN help=i:RETURN 
1040 from=ASC(lEFT$(pmS,l»-64:v=VAli 
M ro$( pmS, 2)) 
1050 IF hp THEN loo=v ELSE loo=from+v 


1060 REM **** JUGADA ILEGAL **** 
1070 IF peg=O AND (from{l 
R from}24 
O
 loo)24) THEN 1000 
10S0 IF loo{25 THEN IF eol(too,l)}l 
 
R col(too,2)=5 TH£N 1000 
1090 IF hp=O AND (eol(frol,l) úR eol( 
from,2)=O) THEN 1000 
1100 IF NDT(v=r(l) úR v=r(2» THEN 10 
00 :REM original IF NOT(v=r(l, uR v=r 
(2) úR v=r(1)+r(2» THEN 1040 
1110 IF peg ANO too>24 ANO col(25-v,2 
)=0 THtN GOSUB 1240:IF flag THEN 1000 
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1120 IF hp THEN IF (eol(too,l»l OR e 
ol(loo,2j) THEN 1000 



1130 RE" **** REALIZAR JUGADA **** 
1140 ply=pIY+V:LOCATE 37,22:PRINT ply 
1150 IF hp=O THEN LOCA TE 2b,22:PRINT 
CHR$(from+64) ELSE LOCA TE 26,22:PRINT 
"*" 
1160 IF too(25 THEN LOCA TE 26,23:PRIN 
T CHR$(too+64) ELSE LOCATE 2b,23:PRIN 


TD)II 


1170 IF hp=O THEN point=from:GOSUB 17 
20 
1180 FOR f=l Tú 1000:NlXT 
1190 Ir too(25 THEN point=too:GOSUB 1 
820 ELSE pn=pn-l 
1200 PAPER O:IF pn=ú THEN RETURN 
1210 IF he THEN LuCATE 20,2:PRINT"Est 
oy 'HIT' · ELSE LOCAT£ 20,2:PRINT S 
PC< 10) 
1220 II=RI-l:WEND 
1230 RlTURN 
1240 REM **** fin del juego para el j 
ugador n:u; 
1250 fIag=O:FOR x=19 TO froRl-1 
1260 IF eol(x,2) THEN flag=l 
1270 NEXT:RETURN 
1280 REM **** compara movimiento 'hit 
, nn 
1290 IF coI(25-rn,l) OR eol(25-rn,2» 
1 THEN REWRN 
1300 count=count+l:order(count,I)=29: 
order(count,2i=25 
1310 RETURN 
1320 RE" **** CORlp fin juego **** 
1330 IF coICrn,1) THEN point=rn:flag= 
1 
1340 z=6:WHILE z AND flag=O 
1350 IF flag=O ANO eoI(z,l) AND rn)z 
THEN point=z:flag=l 
1360 IF flag=O ANO col(z,!) THEN z=l 
1370 z=z-l:IriENO 
13BO IF flag THEN en=en-l:RETURN 
1390 FOR point=6 TO 1 STEP-1 
1400 IF col(point,l) ANO (point-rn»O 
T"EN GOS
B 2010 
1410 NEXT 
1420 RETURN 
1430 REM **** Quitar comp ae pieza ** 
** 
14400fs=col(point,l) 
1450 IF point)12 THEN yc=19:ofs=-ofs 
ELSE yc=5 
1460 PAPER 2+(point "OD 2) 
1470 FOR x=l TD 20 
1480 LOCATE co!(point,3),yc+ofs:PRINT 
CHR$(cp) 
1490 LOCA TE eol(point,3),yc+ofs:PRINT 
CHR$( sp) 
1500 NEXT:PRINT CHR$(7); 
1510 col(point,l)=col(point,l)-1 
1520 RETURN 


1530 RE" **** aladir COllp de pieza * 
*** 
1540 PAPER O:PEN 1 
1550 IF hc THEN BOSUe 1990:LOCATE hic 
(hc,1),hic(hc,2):PRINT" ":he=hc-l 
1560ofs=col(point,l)+1 
1570 eol(point,lJ=col(point,I)+i 
1580 IF point)12 THEN YC=19:ofs=-ofs: 
j=13 ELSE ye=5:j=11 
1590 IF col(point,2)=1 THEN GOSUB 166 
O:RE!'I hit 
1600 PAP£R 2+(point MOO 2) 
1610 FGR x=l TO 5 
1620 LOCATE col(point,3),yc+ofs:PRINT 
CHR$(sp) 
1630 LúCATE eol(poini,3J,ye+ofs:PRINT 
CHR$(cp) 
1640 NEXT 
1650 RETURN 
1660 REM t* hit ** 
1670 hp=hp+l:hip(hp,l)=col(point,3):h 
ip(hp,2)=J 
1680 LOCATE hip(hp,l),hip(hp,2):PRINT 
CHR$(pp) 
1690 col{point,2)=col(point,2)-1 
1700 SOUNO l,63:FOR x=1 Tú 250:NEXT:S 
OUND l,47B 
1710 RETURN 
1720 R£M **** quitar pieza del jugado 
r :UU 
1730 ofs=col(point,2) 
1740 IF point)12 THEN YC=19:ofs=-ofs 
EUE yc=5 
1750 PAPER 2+(point 1'100 2) 
1760 FOR x=l TO 20 
1770 LOCA TE col(point,3),yc+ofs:PRINT 
CHR$(pp} 
1780 LOCATE col(point,3),yc+ots:PRINT 
CHRH sp) 
1790 NEXT:PR!NT CHR$(7)¡ 
1800 col(point,2J=col(point,2)-1 
1810 RETURN 
1820 RE" ***** aladir pieza del jugad 
o r **:u 
1830 PAPER O:PEN 1 
1840 IF hp THEN SOUNO l,478:FOR x=l T 
O 250:NEXT:SOUND 1,63:LOCATE hip(hp,1 
),hip(hp,2):PRINT H H:hp=hp-l 
1850 ofs=col(point,2>+1 
1860 col(point,2)=col(point,2)+1 
1870 IF point)12 THEN yc=19:ofs=-ofs: 
j=13 ELSE ye=5:j=11 
18BO IF col(point,l)=l THEN GOSUB 195 
O:RE" hit 
1890 PAPER 2+{point MDO 2) 
1900 FOR x=l TO 5 
1910 LOCATE col(point,3),yc t ofs:PRINT 
CHR$(sp> 
1920 LOCA TE col(point,3),yc+ofs:PRINT 
CHR$(pp) 
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1930 NEXT 
1940 RETvRN 
1950 RE!'! ** hit ** 
1960 hc=hc+l:hic(hc,l)=eol(point,3):h 
iC(he ,2)=j 
1970 LOCATE hic(hc,l),hic(hc,2):PRINT 
C!1RHcp) 
1980 eol(point,l)=col(point,I)-l 
1990 SOUNO 1,63:FOR x=l TD 25ú:NEXT:S 
OUND 1, 47B 
2000 RETURN 
2010 RE!'! **** prioridades de las juga 
das un 
2020 too=point-rn:pf=eol(point,I):ptc 
=col(too,1):ptp=eol(too,2i 
2030 IF pte=5 úR ptp)1 THEN RETU
N 


2040 count=count+l:pri=O 
2050 IF pf=l ANO pte=1 AND ptp=O THEN 
pri=20 
2060 IF pf=l ANO pte=O AND ptp=l TH£N 
pri=19 
2070 IF pf=l ANu ptc>1 AND ptp=O THEN 
pri=iB 
2080 If pf}2 AND ptc=l ANO ptp=O THEN 
pri=17 
2090 If pf)2 ANO ptc=O ANO ptp=l THEN 
pri=16 
2100 IF pf=! AND pte=O AND ptp=O THEN 
pri=15 
2110 IF pt)2 ANO pie)l ANO ptp=O TH£N 
pri=14 
2120 IF pf)2 ANO ptc=O AND ptp=O THEN 
pri=13 
2130 IF pf=2 ANO pte=l ANO ptp=O THEN 
pri=12 
2140 IF pf=2 AND pte=O ANO ptp=l THEN 
pn =11 
2150 IF pf=2 AND ptc)l ANO ptp=O THEN 
pr i =10 
21GO IF pf=2 ANO ptc=O ANO ptp=O T
tN 
pri=9 
2170order(count,l)=prl:order(count,Z 
)=point 
2180 RETURN 
2190 R£M **** arroJar tlado t%%t 
2200 RANOOMIZE TIME 
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2210 FOR z=1 TO 2 
2220 r{z)=INT(RND*6)+1:NEXT 
2230 IF r(1)=r(2) THEN double=l £LSE 
double=O 
2240 RETURN 
2250 REM **** pintar dado **** 
2260 PAPER O:LOCATE 33,2:PRINT SPC(6) 
:PAPER 3 
2270 LOCATE 1,1:PRINT"Dado A}"r(l):LO 
CATE 1,2:PRINT N Dado B)"r{2) 
2280 Ir double THEN PAPER 3:LOCATE 33 
,2:PRINT"DOBLE" 
2290 PAPER O:RETURN 
2300 REM **** salvar juego **** 
2310 CLS:PEN l:PRINT"SALVAR JUEGO":LO 
CATE 9,25:PRINT a3$ 
2320 LOCATE 1,10:PEN 3:INPUT"NO
BRE D 
EL JIJEGO"¡naae$ 
2330 namet=VPPtR$(name
):If na
e$="' 
THEN RHIJRN £LSE OPENÚ!JT namef 
2340 PRINT#9,m,ply,hc,hp,cn,pn,r(1),r 
(2) 


2350 FOR x=l TO hc:FúR y=1 TO 2 
23&0 PRINf#9,hlC(X,y):NEXT y,x 
2370 FOR x=1 TO hp:FOR y=l TO 2 
2380 PRINT#9,hip(x,y):N£XT y,x 
2390 FOR x=1 TO 24:FOR y=1 TO 3 
2400 PRINT#9,col(x,y):NEXT y,x 
2410 CLOSEOUT:RETURN 
2420 REM *
t* CARGAR JUEGO **** 
2430 CLS:PEN 1:PRINT"CARGAR JUEGO":LO 
CATE 9,25:PRINT m3$ 
2440 LOCATE 1,10:PEN 3:INPUT"NOMBRE O 
EL JUEGO"jname$ 
2450 name$=UPPER$(name$):IF name$="" 
THEN a=Ú:RETURN ELSE OP£NIN naMe$ 
2460INPUT#9,RI,ply,hc,hp,cn,pn,r(1),r 
(2) 
2470 FOR x=1 TO hc:FOR y=1 TO 2 
2480 INPUTI9,hic(x,y):NEXT y,x 
2490 FOR x=l TO hp:FOR y=1 TO 2 
2500 INPUT#9,hip(x,y):NEXT y,x 
2510 FCk x=1 TO 24:FOR y=l TO 3 
2520 INPUr#9,col(x,y):NEXT y,x 
2530 CLOSEIN:toss=O:IF r(1)=r(2) THEN 
úouble=1 fLS£ double=O 
2540 RETlJRN 
2550 REM ** REIMPRIMIR JUEGO ** 
2560 FOR point=l TO 24 
2570 IF col(point,1) THEN FOR y=l Tú 
col{point,l):ots=y:GOSUB 1580:NEXT 
2530 IF col(point,2) THEN FOR y=l TO 
col(point,2):ots=y:GOSIJB 1B70:NEXT 
2590 NEXT:PAPER O:PEN 1 
2600 FOR y=1 TO hc:LOCATE hic{y,1),hi 
c{y,2):PRINT CkR$(cp):NEXT 
2610 FOR y=l TO hp:LOCATE hip(y,l),hi 
p(y,2):PRINT CHR$(pp):NEXT 
2620 RETURN 
2630 REM t*!* LECTURA DE COORDENADAS 


2720 DATA 5,0,3,0,0,6,0,0,9,0,0,12,0, 
:3,15,0,0,18 
2730 DATA 0,5,22,0,0,25,0,0,28,0,0,31 3080 LOCATE l,10:PRINT"2. Load juego, 
,0,0,34,2,0,37 
2740 REM **** DIBUJA TABLERO **** 3090 LOCAT£ 1,12:PRINT"3. Save juego. 
2750 BORDER O: PAPER O: P£N 1: CLS: PAPER I! 
2 3100 LOCATE 1,14:PRINT"4. Jugar Backg 
2760 LUCA1E 20,22:rRIN1"úesae:":LúCAl amion. " 
£ 20,23:PRINT"Hasta:" 3110 PEN 3:LOCATE 1,25:PRINT"Eliges., 
2770 l[)(:ATE 1,22:PRINl" Mis Piezas:" 
:LOCATE 1,23:PRINT" Tus piezas:" 
2780 LOCA TE 30,22:PRINT"Jugado:" 
2790 PAPER 2:LOCATE 1,S:PRINT SPC(39) 
:LúCATE 1,19:PRINT SPC(39) 
2800 PEN 3:LOCAfE 5,5:PRINT"hterior" 
:LOCATE 24,5:PRINT"Interior":PE.N 1 
2810 FOR y=6 Tú i8:LOCATE 1,y:PRINT" 
":LDCATE 20,y:PRINT" ":lOCATE 39,¥ 
2820 PRINT" ": NEXT:z=O 
2830 FúR x=3 Tú 18 STEP 3:PpPER O 
2840 LuCATE x,4:PRINT CHR$(76-z) 
2850 lOCATE x,20:PRINT CHR$(77+z) 
2860 PAP£R 3-(x MOD 2):FOR y=6 TO 10: 
LOCATE x,y:PRINT" ":NEXT 
2870 PAPER 2+(x MúD 2):FOR y=14 TO 18 
:LOCATE x,y:PRINT" ":NEXT 
2880 z=z+l:NEXT:z=O 
2B90 FOR x=22 Tú 37 STEP 3:PAPER O 
2900 LOCATE x,4:PRINT CHR${70-z) 
2910 LOCA TE x,20:PRINT CHR$(83+z) 
2920 PAPER 2+(x "OD 2j:FOR y=6 TO 10: 
LOCATE x,y:PRINT" ":NEXT 
2930 ?APER 3-(x MOD 2):FOR y=14 TO 18 
:LOCATE x,y:PRIHT" ":NEXT 
2940 z=z+l:NEXT 
2950 RETURN 
2960 RE" ***** introduccion **** 
2970 MODE O:PEN 5:PAPER O:BORDER ° 
2980 LOCATE 2,1:PRINT $TRING$(1B,"*") 
:LOCATE 2,25:PRINT STRIN6$(18,"*") 
2990 FOR x=2 TO 24:LOCATE 1,x:PRINT"t 
":LOCATE 20,x:PRINT"*":NEXT 
3000 PEN 1:LOCATE 3,10:PRINT") Backg 
a.mon (" 
3010 PEN 3:LOCATE 3,20:PRINT" Amstrad 
Semana 1" 


E IMPRESION INICIAL t*** 
2640 RESTORE 2700 
2650 FOR point=l TO 24 
2660 RfAD col(point,l):R£AO col(point 
,2):READ col(point,3) 
2670 FOR z=l TO col(point,1):ofs=z:GO 
SUB 1580:NEXT: 
2680 FOR z=l TO col(point,2):ofs=z:GO 
SUB 1870:NtxT 
2690 NEXT:RETURN 
2700 DATA 0,2,37,0,0,34,0,0,31,0,0,28 
,0,0,2-5,5,0,22 
2710 DATA O,O,18,3,O,15,O,O,12,ú,0,9, 
O.O.b¡O.S,:3 


. 
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3020 FOR x=1 Tu 5000:NEXT 
3030 PAPER O:RETIJRN 
3040 REM ***** menu ***** 
3050 WHILE-1:MODE l:PEN l:a=O:LOCATE 
14,1:PRINT"Backgammon":P£N 3 
3060 lOCATE 14,2:PRINT STRING${10,"+" 
):PEN l:LOCATE 17,4:PRINT"HENU" 
3070 LOCATE 1,8:PRINT H 1, Instruccione 
s, " 


3120 a=VAL(INKEV$):IF a=O THEN 3120 
3130 IF a=4 TH£N RET!JRN 
3140 ON a GOS!JB 3280,2420,2300 
3150 IF a=2 THEN RET!JRN 
3160 \¡IEND 
3170 RE" *t*tt Quien mueve priMero *t 
un 
3180 CLS:PEN 3 
3190 LOCATE 4,B:PRINT"Arroja el dado 
para decidir quien" 
3200 LOCATE 1,9:PRINT"hace la primera 
jugada. La tirada mas alta gana," 
3210 LOCATE 1,11:PRINT SPC(8)"[Tu dad 
o es:"¡:PEN l:PRINT"'B'"¡:PEN 3:PRINT 
"J" 
3220 PEN l:LOCATE 1,25:PRINT ml$ 
3230 IF INKEV$="" THEN 3230 ELSE GOSU 
B 2190:605UB 2250 
3240 IF double THEN LOCATE l,20:PRINT 
"Fallo. Intentalo de nuevo. ":60TO 323 
O 
3250 PAPER 2 
3260 IF r(1»r(2) THEN toss=1:LOCATE 1 
,25:PRINT"Vo gano!!!!1 "ELSE toss= 
O:LOCATE 1,25:PRINT"Tu ganas. " 



 


3270 FuR f=1 TO 3000:NEXT:RETURN 
32BO REM ***** instrucciones **** 
3290 PEN 1 
3300 LOCATE 10,20:PRINT "LAS INSTRUCC 
IONES POR FALTA DE ESPACIO EN PAGS 14 
-18 DE AMSTRAD SEMANAL N.-73" 
3310 WHILE INKEV$="":WEND 
3320 PEN 2 
3330 RETIJRN 
3340 REH ********* FIN ********* 
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Del océano 
"Tempest" 
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Dos mundos tan distintos 
como un ilimitado océano, y 
el no menos extenso 
hiPerespacio, contrastan lo 
suficiente para estudiar/os 
juntos, cuando han sido 
tratados con la imaginación y 
buen hacer que marcan a los 
dos juegos que analizamos en 
este número: «Xarq)) y 
«1empest))_ 
El primero nos lanza al 
singular papel de combatiente 
y vigilante de una puerta de 
salida del hiperespacio, donde 
se viaja más rápido que la 
luz, al espacio normal. 
Debemos impedir a cualquier 
precio que las naves enemigas 
la atraviesen. 
El segundo, por el contrario, 
nos introduce suavemente en 
la aventura de un planeta 
completamente líquido_ Sólo 
hay océanos, y en uno de 
ellos se esconde la mayor base 
planetaria, donde deberemos 
bregar con todo tipo de 
aventuras y peligros para 
lograr nuestro benifico 
objetivo. 
Dos nombres extraños para 
mundos extraños: «Xarq)) y 
«1empest))_ 
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Las naves de «Tempest» cuentan con unos 
cañones de plasma situados en los extremos 
mesoeléctricos del fuselaje, Otra arma, ésta 
altamente destructiva, es el «Super Zapper». Con 
él podremos limpiar todo el tubo hiperespacial de 
alienígenas de un solo disparo, mas su utilización 
deberá realizarse en situaciones realmente 
complicadas, ya que sólo podremos disponer de él 
una vez por pantalla, 
Los aliens, que hasta la fecha han sido 
catalogados, son los siguientes: 
Flippers. Vuelan de sendero en sendero al 
avanzar. 
Fuseballs. Vuelan a gran velocidad a través de 
un solo sendero, 
Tankers. Cuando alcanzan un sendero, se 
abren en dos «Flippers», o en una «Spiralling 
Fuseballs» cuando disparan. 
Spiralling Fuseballs. Trazador de círculos a 
alta velocidad, 
Spikes. Viajan entre senderos en línea recta. 
Pulsars. Son los más complicados, Hacen el 
viaje a través de un sendero imposible. 
Para fumigar a los alienígenas, ya hemos dicho 
que tenemos dos cañones de plasma y un 
poderoso cañón llamado «Super Zappen,. Si con 
la dotación de armas de nuestra nave 
conseguimos acabar con los incómodos y 
peligrosos aliens, cambiaremos de pantalla. Esto 
no entraña excesiva dificultad hasta el momento 
en que aparecen los tankers (no hacen imposible 
nuestra misión, pero la animan). 
Una cosa que no conseguimos dominar fue la 
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Proein. S.A, Velázquc , lú. 
P.V.P. - cinta - .300 
di... 7 00 
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utilización del Super Zapper con el joystick. No 
se puede controlar su uso y se dispara cuando 
pulsamos el botón de fuego. 
Poco más se puede decir de la acción de t'ste 
juego de Electric Dreams que, como ya sabemos, 
distribuye Proein, S.A. 
En cuanto a la parte gráfica, diríamos que es 
bastante simple, ya que todo lo que veremos en 
pantalla a lo largo del juego serán líneas, puntos 
y figuras geométricas de todo tipo. El colorido 
sigue la misma línea de simpleza, y lo realmente 
logrado es el efecto de desintegración de nuestra 
«nave» cuando es alcanzada por un alien. 
También en esta situación, como en todo el 
juego, el sonido es lo más destacable. 
Tempest no creemos que pase a engrosar uno 
de los puestos de honor en la colección de los 
. . , 
«VICIOSOS» jugones. 
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XARQ 


PrQcin. S.A. 
P.V.P, - cinta - 2.300 
disco - '\.700 
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L a misión consiste en inundar los canales 
«Zimmerman» y, con esto, inutilizar el reactor 
principal. Pero, como toda tarea, ésta tiene su 
dificultad, que en nuestro caso consistirá en 
superar los sistemas de defensa y reparación - 
ambos automáticos y fuera de control- que 
posee el compl
jo técnico de Xarq. 
El sistema de defensa consta de poderosos 
cañones costeros, minas acuáticas y misiles 
teledIrigidos, Estos últimos son los más 
peligrosos, debido a que aparecen de repente y 
son difIciles de esquivar, puesto que llevan cabeza 
rastreadora. 
Para enfrentarnos a estos peligros, disponemos 
de una superavanzada cañonera «Hidroboat", 
dotada de un «H yperatom», sistema de 
propulsión desarrollado para la misión, además 
de estos sistemas de defensa y ataque: 
Láser. El láser es rápido y certero, 
Misiles teledirigidos. Para utilizados 
deberemos pulsar la tecla "G" del ordenador de 
la nave y, posteriormente, dirigir el misil a la 
izquierda o a la derecha, según queramos, 
Mortars. En este caso deberemos pulsar la 
tecla "M" y con el botón de fuego controlar el 
mortal' , 
Cargas de profundidad. Éstas sirven para 
defendernos de los submarinos, Para arrojar las 
cargas, debemos pulsar la tecla "D" 
Los canales «Zimmerman» rodean 
con céntricamente al reactor central. Para 
inundados, deberemos romper las luces que están 
alIado de las puertas de cada sección que, según, 
su color, nos indicarán dónde nos encontramos, 
de esta manera: 
Luces blancas y azules. Están sobre la 
estación de reparaciones, 
Luces verdes y negras. Indican el campo, el 
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lugar donde se hallan los generadores láser. 
Luces púrpuras y negras. Indican corrientes 
de campos de fuerza. 
Ésta es la trama de un juego en el que lo más 
destacable sería el movimiento. 
Gráficamente es un tanto abigarrado de líneas 
y colores. 
En el fondo, este juego de Elcctric Dreams, 
que distribuye Proein, S.A., no es sino uno más 
de los dedicados a darle gusto al gatillo del 
joystick y a demostrar la habilidad en esquivar 
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misiles y demás armamento enemigo. Si bien esto 
es entretenido, ya es un tema muy abordado y, 
para sorprendernos, este tipo de juegos deberán 
tener en el futuro una calidad gráfica, así como 
un movimiento y un sonido, cada día más altos, 


1
 

 


- --
 
Originalidad 
0
EJD 
Gráficos []D
DD 
Movimiento 
0
DD' 
Sonido 
u:JlDDD 
Dificultad 



D' 
Adicción DIDDDD 
Valoración final 
 

 .. 
 ,- 
V Horrible VVUn rollo V V V Pasablt' 
V VVVBueno VVVVVMuy bueno 


AMSTRAD Semanal 21 



500 cc Grand Prix 


Proein, S.A. 
p. V P: Discos: 3. 700 / Cassettes: 2.300 


Las motos han cobrado un interés realmente 
importante desde hace algún tiempo en el mundo 
de los juegos de ordenador. Anuncios, conexiones 
con carreras, máquinas tragaperras y un largo 
etc, de apariciones en la vida diaria las hacen 
presentes. Es normal; después de todo, no 
podemos olvidar que la sensación de velocidad y 
competición es difícilmente comparable a 
cualquier otro vehículo. 
Microids, casa francesa de software distribuida 
por Proein, S.A., no ha dejado pasar por alto la 
oportunidad de lanzar un juego apoyado en esta 
popularidad y ha hecho llegar hasta nosotros este 
500 cc Grand Prix. Con él podremos revivir las 
sensaciones antes descritas. Curvas de gran 
velocidad, largas rectas de gas a tope y la 
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posibilidad, la importante posibilidad de poder 
jugar dos personas. 
El programa nos permite realizar las doce 
carreras que forman el campeonato de la 
categoría reina en el motociclismo mundial, los 
500 cc. Si sólo queremos realizar una carrera, 
tendremos que elegir esa opción, También 
podremos empezar eligiendo el modo «novatos" 
hasta que nuestra pericia nos permita correr 
como expertos. 
En fin, un programa con un tema que no está 
muy explotado por el momento, con unos 
gráficos buenos, además de un sonido y 
movimiento que casi hace sentimos al mando de 
una potente máquina de G.P. 


Digno de mención: 
Opción de juego para dos personas 
Sonido 
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La herencia. 
Tribulaciones de un 
heredero en Las Vegas 


ldealogic 
Discos: 3.700 / Cassettes: 2.600 
D
sde siempre hemos oído hablar de la 
inmensa fortuna que determinada persona heredó 
de su tía de América, Qué envidia... 
Idealogic debió pensar que había que realizar 
los sueños de la gente y ha sacado este juego, 
«La herencia", para que podamos acercarnos a 
este sueño, 
Los creadores del programa nos han situado en 
la conocida ciudad americana de Las Vegas, 
centro del juego y demás vicios de USA. En ella, 
debido a una cláusula del testamento de nuestra 
excéntrica tía, deberemos ganar en una noche un 
millón de dólares. Sí, 1.000.000 de dólares. Si no 
cumplimos esta última voluntad, la herencia se 
nos esfumará en el aire. 
Sí, esto no va a ser fácil de por sí, deberemos 
añadir la larga lista de acreedores que nos irán 
persiguiendo mientras intentamos ganarnos ese 
millón de dólares, jugando a la ruleta, los dados 
o con las máquinas tragaperras. 
A nosotros la idea nos ha parecido realmente 
original y llena de emoción, además de estar bien 
presentada gráficamente y con un sonido logrado, 
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Tennis 3D. 
Vive el Roland Garros 
Proein, S.A. 
P V P: Discos: 3. 700 / Cassette: 2.300 
L .. I 
S anCle s, casa francesa distribuida por P , 
.A., nos muestra su m
jor juego. roem, 
Aunque en este caso no . d ' 
originalidad total sí d ' po namos hablar de 
, po namos hacerla de 
programa conseguido, 
En un principio cabe pensar 
de tenis es una cosa sencilla D que 
n ¡rograma 
trata simplemente de . espues e todo se 
I . mover a unos señores 

o pean u
a pelotIta mientras dura el partid¿ue 
sto no dIsta mucho de la realidad 1 . , 
claro es q h ' o que esta 
. ue ay que mover bien a los 
mencIOnados señores Y a la l' . 
golpes, pe otIta, objeto de sus 
_ As
 lo ha hecho Loriciels y, además h 
anadIdo un sonido f, , a 
tenis. per ecto para un programa de 
, EI I programa se da el lujo de jugar en dos 
nIve es, uno para noveles 
con tres tipos de pistas di!, otro 
ara mast
rs, y 
batida una de h ' b erentes, una de tierra 
, Ier a Y ot ., , 
opción d ra smtetIca, Con su 

ara os personas, podremos 'u ar 
entretemdos P artidos C on 1 . J g 
os amIgos Y P 
ratos muy agradabl ' ' ' asar 
es con un Juego que, por su 


. 


. 


, 


, 


UEG · s 


- I 



..,.r r r 
r"r( : 
r
 rwl' 
r4r rr .. 
%rr 
..
. 
r'r 
r 


... 
..'
 
...I -¡: 

 :;

.. "a 
,....... ....'1 '" 
'\" c: 
-.. OJ 
.. "'é 
1....... QJ 
:f' 6- 
>. 


1: 
;It_-'.., 


.. 



L -=-- 
 


"-"t,o:,h "'... 1 - - 
 .- 
.:....UEIIR 1. _ -
=:. :..,:,
:¡...."rl
- 
4'" -=:1"-"'11. 
te mete en la acción de un 


buena realización 
match verdadero.' 


Digno de mención: 
Movimiento de los objetos 
Sonido 
Tres tipos de pista distintos 
Opción de juego para dos personas. 
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Compra Y vende, el negocio es tuyo 


ldealogic 
P. v. P.: Cassettes: 2.000 


J 


Como bien sabemos, el dinero todo lo compra 
y por él, casi todo se vende. 
Teniendo en cuenta esto. Idealog ic ha hecho 
honor a su nombre y, con una idea muy lógica, 
nos quiere ayudar a desarrollar el intelecto para 
poder triunfar en el duro y despiadado mundo de 
las finanzas, 
Con su programa Compra y vende nos sitúa al 
frente de un pequeño negocio en el que 
tendremos que demostrar nuestras dotes de 
empresano, 
El juego es autoexplicativo y no será necesario 
aprenderse de memoria sus normáS de 
funcionamiento. Lo fundamental es utilizar el 
sentido común, 
En un principio, el ordenador noS hará un 
pequeño examen para obtener el indispensable 
«carnet de comerciante». Para que éste no nos 
sea muy difícil, se adjunta un pequeño 
diccionario comercial. 
Como se puede ver, este juego no lo es tanto, 
y realmente casi se podría hablar de una utilidad, 
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ya que con él, lograremos entrenarnos Y adquirir 
unas ligeras nociones de transacciones financieras. 
Pensamos que esta original idea será muy 
capaz de hacernoS pasar entretenidos ratos frente 
al ordenador. 


Digno de mención: 
Originalidad 
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Bactron, medicina 
contra el aburrimiento 


Proein, S.A, 
P. V. P.: Discos: 3. 700 / Cassettes: 2,300 


e'on este juego podremos combatir el 
aburrimiento, la depresión, la histeria lúdica o la 
soledad, guiando a la simpática bacteria 
«Bactron" en su lucha por acabar con los virus 
que nos mantienen enfermos. 
El único efecto secundario que se conoce de 
tan milagroso fármaco es la fatiga de muñeca, 
que nos aquejará hasta el momento en que 
acertemos a dirigir con precisión a nuestra 
benefactora bacteria. 
En su arduo camino para liberar a las enzimas 
sanadoras, Bactron deberá eludir a los poderosos 
virus causantes de la enfermedad porque si no, la 
devorarían sin piedad. 
Buena y original la idea de este juego, además 
de venir acompañada de unos gráficos y 
movimientos realmente buenos, así como una 
música que llama la atención poderosamente. 


Digno de mención: 
Originalidad 
Gráficos 
Movimiento de Objetos 
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Light Force. 
La venganza de Regulus 


¡ 

 


Zafiro 
p, V. P.: Discos: 2.688 


Las colonias situadas alrededor de Regulus 
enviaron un escueto y lacónico comunicado. Tras 
él se escondía una situación apurada: 
«Naves desconocidas han aterrizado en 
instalaciones clave". 
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El consejo de GEM ordenó a toda la fuerza de 
defensa la marcha hacia las colonias. Lo que el 
consejo no esperaba era la respuesta en solitario 
de una nave, Lightforce. 
Tu Lightforce es una nave poderosa, pero la 
misión encomendada es casi suicida y dependerá 
de tu capacidad de pilotaje, así como de tu valor, 
el soportar el enjambre de naves enemigas que se 
echarán sobre ti en el momento que te vean 
aparecer. 
Bonito, rápido y entretenido, este juego de 
F.T.L., que, aunque nos recuerda a algún juego 
de tiempos pretéritos, se ha sabido remozar y 
darle el toque de actualidad, gracias a unos 
gráficos buenos, casi tan buenos como el 
movimiento, y una acción que apenas deja 
respIrar. 
Lightforce está distribuido en España por 
Zafiro. 
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Digno de mención: 
Acción trepidante 
Movimiento 



TRUCOS 


Quinielas express 


Siempre es conveniente poder hacer las cosas 
cómoda y rápidamente, por eso, traemos hoya 
«AmstradIdeas» una que nos propone uno de 
nuestros lectores para rellenar boletos de 
quinielas con la máxima celeridad, 
El funcionamiento es muy simple. Después de 
la aparición de la pantalla de presentación, 
deberemos pulsar la barra espaciadora y 
aparecerá una nueva pantalla en la que se nos 
darán 14 resultados, si volvemos a pulsar, 
obtendremos una nueva combinación, así 
sucesivamente. 


¡¡¡Buena suerte!!! 


A veces hay que esperar 


El comando RSX, que implementamos con 
este pequeño programa cargador, es el comando 
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10 MOOE l:BOROER 24:PAPER l:PEN 3:CLS 
20 FOR a=1 TO 2S:PRINT'IX2 lX2 lX2 11 
2 lX2 lX2 lX2 1X2 lX2 lX2':NEXT A 
30 LOCATE 13,3:PAP£R O:PEN 2:PRINT · 
quiniela ":LOCATE 19,4:PRINT '1x2 
':LOCATE 14,23:PRINT 'pulsa espacio' 
40 aS=INKEYS:IF AS{>" · THEN 40 
SO IF AS=' · THEN PAPER l:PEN 3 
60 CLS:SS=' · 
70 FOR S=l TO 14:0=INT(RNO(I)*3+1) 
80 IF 0=1 THEN PRINT SSj'l' 
90 IF 0=2 THEN PRINT SS;'X' 
100 IF 0=3 THEN PRINT SSj'2' 
110 NEXT S 
120 PRINT:PRINT' ESTA ES LA QUINIEL 
A MILLONARIA".,. 
130 LOCA TE 14,23:PRINT 'PULSA ESPACIO 


. 


140 OS=INKEYS:IF OS{>' · THEN 140 
150 IF OS=' · THEN GOTO 60 


P A USE. Seguramente, para los que hayan 
utilizado el Basic del Spectrum, este nuevo 
comando les resulte familiar. Lo que hace es muy 
sencillo, simplemente espera. 
El comando PAUSE admite un parámetro, de 
1 a 65000, cuanto mayor sea el número, mayor 
será el tiempo de espera, En el caso de que sea 
O, el programa se detendrá hasta que se detecte 
la pulsación de una tecla. 


10 MEMORY &9FFF 
20 d1recc1=&AOOO 
30 FOR 1=1 TO 7 
40 sum=O:READ codeS.check$ 
50 FOR j=l TO 21 STEP 2 
60 byte=VAL("&"+MIDS(codeS,j,2» 
70 POKE direcci.byte 
80 sum=sum+byte:direcci=direcci+1 
90 NEXT 
100 IF sum<>VAL("&"+check$) THEN PRIN 
T "Error en data en linea ";290+1*10 
11 O NEXT 
120 CALL &AOOO 
130 END 
140 
150 DATA 010AA02140AOCDD1BCC90F,4DE 
160 DATA AOC315A050415553C500DD.4F3 
170 DATA 7EOOFE00200BDD7E01FEOO,401 
180 DATA 2004CD06BBC9DD4600DD4E.4C9 
190 DATA 0178FE002004792001C90B,309 
200 DATA 3E193DFE0020FB18EDOOOO,3B2 
210 DATA OOOOFFOOOOOOOOOOOOOOOO.FF 
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Catal gador 


Siempre que pretendamos sumergirnos en el 
interior de un fichero binario, existen tres 
parámetros de conocimiento exigido para el 
curioso: la dirección de origen, la longitud del 
fichero y la dirección de ejecución. 
Con esta pequeña rutina, una buena parte de 
estos problemas quedará resuelta. 
La utilización del programa no puede ser más 
simple: RUN, meter la cinta que queremos 
catalogar, PLAY Y esperar. 
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10 

*
**
****
*
***** 
20 ' ** CATALOGADOR 
* 
30 ' 
 * By * * 
40 ' ** Raul Avedillc 

 
50 ' ************
***
** 

o CLS 
70 LOCATE 10,12:PRINT"ESPERE,CATALO 
DANDO" 
80 MEMORY 7999:FOR V=8000 TO 8047:R 
E:AD D:PDI<E V,D:NE>:T:RESTORE 
90 DATA 62,44,17,64,0,33,164,31,205 
,161,188,201,62,22,17,0,0,33,229,31 
,205,161,188,201,62,44,17,64,0,33,1 
éA, 31 , 205, 1 58, 188, 

O 1 , 62, 22, 1 7 , O, O, 


33,229,31,205,158,188,201 
100 CALL BOOO:H=:31:A==BI00:P=A 
110 CLS:LOCATE 12,4:PRINT"DATOS DEL 
PROGRAMA" 
120 LOCATE 12,5:PRINT"------------- 


_____11 


130 LOCATE 5,10:PRINT"NOMBRE...._.. 
-.. n -.... ";: IF PEn:(p)=o THEN PRIN 
T "NO TIENE" ELSE FOR F=P TO (P+15) 
: IF PEEK (P)<)(I n-fEN PRINT CHR$(PEE 
I«F) ) ; : NEXT 
140 LOCATE 5, 11:PRINT"NUMERO DE BLO 
QUE...... "; :PRINT PEEI«P+16);: IF PE 
EK(P+17)<>0 THEN LOCATE 31,11:PRINT 
"UL TIf'10 
150 LOCA TE 5,12:PRINT"TIPO......... 


1 
1 


" . 
......... , 
160 IF PEEK(P+18)=0 THEN PRINT"BASI 
C" 
170 IF PEEK(P+18)=1 THEN PRINT"BASI 
C PROTE8IDO" 
180 IF PEEK(P+18)=2 THEN PRINT"BINA 
RIO" 
190 IF PEEI< (P+18) =3 THEN PRHJT"BINA 
RIO PROTEGIDO" 
200 IF PEEK(P+18)=4 THEN PRINT"PANT 
¡!!,LLA" 
210 IF PEEK (P+IB> =5 THEN PRINT"ASCI 
1" 
220 LOCATE 5, 13:PRINT"LONGITUD BLOQ 
UE. . . . . . . "; : PRINT PEEK (P+ 19) +256
PE 
EK (P+20> 
230 LOCATE 5, 14:PRINT"DIRECCION BLO 
QUE. .. . . .";: PRINT PEEK (P+2U +-256
PE 
EK(P+22) 
240 LOCATE 5, 15:PRINT"LONGITUD TOTA 
L. . _ .. _ . . "; : PRHJT PEEI«P+24) +'256
PE 
EK(P+25) 
250 LOCA TE 5, 16:PRINT"DIRECCION EJE 
CUCION.....;:PRINT PEEK(P+26)+256
PE 
EK(P+27) 
260 LOCATE 5, 17:PRHJT"BLOQUES DEL P 
ROGRAMA....;:IF PEEI«P+24)+256*PEEI« 
P+25) =PEEI< (P+'19) +256*PEEK (P+20> THE 
N PRINT 1 ELSE PRINT HIT 
 (PEn
 (P+24 
)+256*PEEK(P+25»/2048)+1 
270 CALL &BC71 
280 LOCATE 5,25:PRINT"PULSE 'ENTER' 
PARA CATALOGAR" 
290 WHILE INKEYS<>CHR$(13):WEND:RUN 


1 


Textos giratori .: en caracteres gigantes 


., 

an Scroll, es, a nuestro parecer, el truco más 
impresionante que ha pasado por esta sección a lo 
largo de 74 números. A pesar de su corta longitud, 
haría enr
jecer a más de uno de los pequeños 
reclamos luminosos que estamos acostumbrados 
a observar en comercios y grandes almacenes. 
El programa incluye una pequeña rutina en 
Código Máquina, sobre la que recae toda la 
responsabilidad del sorprendente movimiento. Si 
queremos incluir nuestros propios textos, bastará 
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que lo hagamos en las datas al efecto. El 
programa leerá e imprimirá todos los textos 
contenidos en las líneas de data, justo hasta 
encontrar la palabra «FIN», momento en el que 
comenzará nuevamente la 
jecución. 
Esperamos sinceramente que disfruten con este 
truco, tanto o casi tanto como lo hemos hecho 
para desenmarañar el secreto, que tras sus datas 
se oculta. Dejamos al aficionado al Código 
Máquina la resolución del enigma. 



1 
1 


II1II; 


10 REM Big Seroll 
20 REM------------------- 
30 REM(c) AMSTRAD SEMANAL 
40 GOSUB 220:RESTORE 
50 BORDER O: INK 0,0 
60 WHILE NOT Asleep 
70 READ ZI.$,size: IF a$="FIN" THEN HEST 
ORE: Goro 70 
80 CALL &AOOO,@a$,I+RND*255,I+RND*255 


t size 
90 WEND 
100 RESTORE 
110 WEND 
120 END 
130 
140 DATA "AMSTRAD SEMANAL 
11,2 
150 DATA "AMSTRAD SEMANAL 
11,4 
160 DATA "AMSTHAD SEMANAL 
" .8 
170 DATA "AMSTRAD SEMANAL 
",16 
180 DATA "AMSTRAD SEMANAL 


11.4 
190 DATA "Esto es una demostracion de 
los scrolls que pueden conseguirse " 
,4 
200 DATA "BigScroll utiliza la pot.en 
eia de el chip 6845 que controla el t 
ubo de irnagen " , 16 
210 DArA FIN,l 
220 REM ---- CODIGO MAQUINA ---- 
230 MEMORY &9FFF:direcci=&AOOO 
240 RESTOHE 350 


') 


Pap 
ar 


pInta o 
el fondo de tu CPC 


Dentro de los CPC existen multitud de pokes 
valiosos para el usuario. Uno de éstos, en 
realidad es una variable del sistema, controla el 
color del papel, y equivale a la instrucción 
P APER pero con mucho más juego. Los usuarios 
del CPC 464 encontrarán este valor en la 
dirección B290, y los del 664 Y 6128 en B730. 
Explicar los distintos fondos generados sería 
imposible desde esta pequeña sección, por eso 
proponemos el siguiente programa con el que 
podremos ver todos los fondos y colores posibles. 


TRUCOS 


J 


\. 
I 


\. 


250 FOR i=l TO 24 
260 sum=O:HEAD code$,check$ 
270 FOR j=l TO 21 STEP 2 
280 byte=VAL("&"+MID$(code$,j,2» 
290 POKE direcei,byte 
300 sum=sum+byte:direcci=direcci+l 
310 NEXT 
320 IF sum<>VAL("&"+check$) THbN l-'HIN 
T "Brror en data en linea"ó340+i*10 
330 NEXT 
340 RETURN 
350 DATA A7C83D28243D280ADD7EOO,3C2 
360 DATA 3288AODD2:3DD23:3D280ADD,4A6 
370 DATA 7E003286AODD23DD23DD7E,531 
:380 DATA 00:3280AODD23DD23DD6EOO, 49D 
390 DATA DD66017EA7C83209A12322,452 
400 DATA 3BAODD2A00003E01CDOEBC,3B8 
410 DATA 219FC02266A02100002207,2F2 
420 DATA A1DD7EOOCDA5BBCD06B911,5C6 
430 DATA FFA0010800EDBOCD09B906,4DA 
440 DATA 08F31l0000C5CB40CA78AO,4BE 
450 DATA 0601CDCBA010FBCDDCA006,599 
460 DATA 0821FFAOC5E50EFFCB2638,5A8 
470 DATA 020E000608626B71233600,1B5 
480 DATA 2B7CC60867D29BA01150CO,SOA 
490 DATA 1910EE545DE123C110D92A,4AO 
500 DATA 66A0014FOOA7ED42060836, 370 
510 DATA 007CC6086710F82A66A023,40C 
520 DATA 2266AOC110A4DD232109A1, 468 
530 DATA 35C24EAOC9F5C506¥5ED78,6C8 
540 DATA 1F38FBBD781F30FBC1FIC9,6'1C 
550 DATA 2A07A123232207AICB3CCB,3B4 
560 DATA 1D0100BC3EOCED79047CC6,3DO 
570 DATA 30ED79053EODED79047DED,4BA 
580 DATA 79C9000000000000000000, 142 


10 REM usuarios de 464 
20 FOR n=l TO 255 
30 POKE &B290, n 
40 PRINT "PARA CONTINUAR PULSA UNA 
TECLA" 
50 WHILE INKEY$=....:WEND 
60 NEXT N 


10 REK usuarios de 664 Y 6128 
20 FOR n=l TO 255 
30 POKE &B290,n 
40 PRINT "PARA CONTINUAR PULSA UNA 
TECLA" 
50 WHILE INKEY$='''.: WEND 
60 NEXT N 
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MUCHO MAS DE LO 
UD. ESPERABA. 


I 


Merecia la pena esperar. AMSTRAO presenta un nuevo 
hilO en la histoda informatíca: el PC 1512. 
EsJe ordenador, manteniendo la compatibilidad con el 
standard 1. B. M.@,lo supera 
tecnológicamente con un diseño en el que 
se Incorporan los últimos avances de la 
electrónica, a un precIo realmenIe 
excepcional. 


MUCHO MAS EQUIPO 
'OR MUCHO MENOS 
'RECIO. 
139.900 'TAS. 


II
 
. 


Para conseguir un PC, Usted tenia dos opciones, 
O bien, comprar un equipo tompleto pero a un precio 
elevado: o bien, pagar menos pero a costa de recibir 
una configuración en la que no se íncfuian elementos 
esel1Clales (momtor, memona. gráficos, Imer!ace para 
Impresoras, sistemas oparativos, etc.J. 
Ahora, con el"PC 512", por un precio realmente 
excepcional y sIn inversiones de dinero 
complementarias Usted dispondra de un completisimo 
sistema informático Que se conecta a la red por un solo 
cable, y que Incluye como standard todo lo nacesa o 
para trabajar a fondo: 512 K RAM. MOI1Itor 
direccionable, ratón, gráficos y colores, inter!aces para 
impresoras y otros periféricos, reloj de cuarzo con 
baterías y un paquete de software con los mas 
importantes sistemas operativos: MSDOS 3.2. 
{MlCrosoftJ @.DOS PLUS Y CPM (Digllal Researcn1 
GEM (Digital Researrj,\ 
y BASIC 2 para GEM jf 
comotivl.. 


'C 


t 


MUCHO MAS FACIL. 
\ UN GENIAL RATON LLAMADO GEM, 
B "PC 1512" inCorpora el entomo GEM (OirectOIio 
de graficos aux
lares).que ofrece toda la 
información en menús abatJbles, "1ntanas E 
lconos para representar ten IS ae trL 
útiles como art...la_ores, ,mpresos, 
calculadora. ..,etc. Todo el.o!, se "'IanelU 
través de un ratón ergonOmiw cc 
2 pulsadores. Mios a los manuales 
de complicada lectura. a los comandos 
difíciles y a los cursos de entrenamiento. 
Con el GEM y el raton, 
el AMSTRAD PC 1512.10 hace 
todo mas rapido y mucho mas senc o 


A 
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GRAFICOS CON MAS COlOR. 
Generalmente, el resto eJe los PCs no lIlduyen en sus 
sistemas standard ni gráficos ni colores, aunque 
existen diferentes tarjetas de ampliación. 
El modelo slandard del"PC 1512" dispr".
' -,,,
.- 
de .. 6 c lores en 80 ( . Imnas. con una :le 
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EXPERTO EN COORDINAR UNA RED 
DE TRABAJO. 
El AMSTRAD "PC 1£<2' ",,,on, 
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MUCHO MAS COMPAnBLE. 


La ex/JauSltva CMtI
ura_, . n ba ea d<>1 "PC 15 1 2". 
que incluye como standard "deta % ,"''''" 
512KRAM pt.
"'aSselKldMs. 
'M_' 
ete le pr'-'" -- .<" ... 
pr(o 
se) aPCs:sl 
proc_Sé\r _>5 a an_ 1Ie___ __o. 
Por otrf\ lado, JIm... ,
::- 
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go de pr
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incré"J!es en cr'abr'al 
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'----'1fkJI"s. 
lOGlC CONTROL. 
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PROA' 
GRAFC, 
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DISCO DURO, 


,"p(. ,1¿. Amstraa prL.>en 
) "Je van desde el 
. 
['M un disco de 10 Megabyles y 
''''JM les 11or'''r ce'M 
ElII A SU rc 1512. 
1 ,' 01 lOr monocromo . 1 Disco 
MOI.Jor monocromo 2 Discos 
Monitor color 1 Disco 
Monitor color ' 2 Discos 
Monitor monocromo 20 Megabytes 
Momtor color 20 Megabytes 
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PVP 139,900 + IVA 
PVP 169.900 + IV A 
pvp 179.900 + IV A 
PVP 209,900 + IV A 
PVP 259,900 + IV A 
PVP 299.900 + IVA 


- 


- 


TOOO LO QUE VD. RECIBE 
POR SOlO 139.900 PTAS, 
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Al microscopio: Facturación- 
Almacén para PCW 


Por: M. Carda 


Dentro de! cúmulo de software hecho en España, es e! dedicado a 
gestión de empresa e! que más Kbytes ocupa, Hoy le ha tocado el turno 
a un desarrollo de la firma Grotur, radicada en Madrid y que, como 
otras, tiene un extenso catálogo de gestión para nuestra querida 
«máquina de escribir». 


E 1 programa al que le ha tocado «la china» 
esta vez es un desarrollo que contempla el 
proceso de facturación, en este caso directa, sin 
mediar albarán, y control de movimientos de 
almacén. Para hacerla realmente eficaz, se 
utilizan las dos unidades de disco para el 
almacenamiento de datos, teniendo en la unidad 
A, todo lo concerniente a clientes, así como los 
datos de cada factura que emitimos, y en la B, 
todos los datos de artículos y movimientos de 
almacén. Los programas, claro, están en 
memoria interna, con lo cual se gana rapidez de 
proceso, Vamos a ver cómo lo hace. 
Después del proceso de carga, que puede 
resultar un tanto lento, entramos en una pantalla 
previa al menú principal, que es la de los datos 
de la empresa que va a trabajar con el programa. 
Una vez entrados estos datos, pasaremos al menú 
general, el cual consta en total de ocho opciones, 
que funcionan de la siguiente manera: 


El programa se 
caracteriza por su 
clara estructura y 
sencillez de 
maneyo. 


XXXIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
* IUN U PRINCIPAL * 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXIIXXXXXXXXXXIIIX 
* * 
* 1. ALIIACIH . * 
* * 
* 2. MOVDlIEHTOS. * 
* * 
* 3. DEUOIIOCIOHES. * 
* * 
* 4. CLIEltTIS. * 
* * 
* S. FACIURAS. * 
* * 
* G, LISIADOS. * 
* * 
* 7. CREACIOIf E IHICIACIOIf * 
* * 
* 8, fDt DE SES1(J4. * 
* * 
* OPCIOIf: I * 
* * 
xxxxxxxxxxxxxxXXXXXXXllXXXXXXxxxxx 
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Opción 1: Almacén 
Este proceso es el que controla las altas, bajas, 
consultas y modificaciones de los artículos que 
tenemos en almacén. Se entiende como alta y 
baja a la entrada o borrado de ese artículo con el 
que, posteriormente, se harán los movimientos de 
almacén. Comenzamos introduciendo el código, 
que puede ser de hasta 11 caracteres 
alfanuméricos (números y le
ras). Vienen luego 
los campos de DESCRIPCION, para los cuales 
tenemos 25 caracteres disponibles, PVP, en el 
cual introducimos el precio con el que vamos a 
facturar el producto, IV A Y RECARGO DE 
EQUIVALENCIA, con lo que se entiende que el 
programa puede llevar almacenes con productos 
que tengan distinto tipo de IV A, y, por último, 
tres apartados que hacen referencia a los datos de 
stock actual, stock bajo mínimos y número total 
de entradas o salidas, así como de devoluciones. 


Opción 2: Movimientos 


Desde aquí vamos a controlar todas aquellas 
entradas y salidas de almacén que no dependen 
de la facturación; entramos en este proceso con el 
código del artículo, debiendo introducir luego los 
datos de rigor para este tipo de procesos como 
son: fecha, unidades, entrada o salida, etc. El 
proceso se supone que lleva el control del IV A de 
clientes y proveedores, puesto que, además de 



IXX..UUJOl.MJOI)lIXXXUIlXXXXXXMXXXUUXXXXUU..XXIX)lXXXX..X...JUI)(JIxx.....'OUIXX.JOII1J(UIII.. 
. CLIINTIS . 
X..XXMMXXXUJ(J(UX.XUXXXXXXJOl.MXXlJOlXMXMII.III.IXX.MXIXM..II.IXJlJIXIX)I.....U..X....MXU..XXIIX. 


OPCIIJIES: 1.ALtA URJA 3.IIODIFICIIC
 4.C
SULtA S.MENU AN1DIOII OPC: 1 
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CODICO.,..."., :A-123 
Nllllbre.........:11 Aejor cliente del Aundo 
Direeeion,..,.. :el Sueasa, 187 
Poblacion. . " , , :MADRIJ 
Codigo Postal.. :28tee 
Provincia"".. :MADRIJ 
CIr o ])NI...,.. :A-.tS874412 
telelono"."., :S874123 


=======
=COOM=?=(SIii)===============================i================================ 


La pantalla de control de clientes, se agradece; ficha y menú 
-todo en uno. 



 


salidas de almacén, contempla la entrada. Lo que 
ocurre es que para calcular el IV A 
correspondiente a proveedores hemos de cambiar 
siempre el precio, pues se parte siempre del de 
venta al público, y éste no puede ser igual al de 
costo, Y ya que estamos en movimientos de 
almacén, decir que el programa no contempla la 
confección de inventario, pues, dado que no hay 
precio de costo por cada artículo, no podremos 
saber el valor REAL de lo que tenemos en 
existencias, 


Opción 3: Devoluciones 
Desde aquí llevaremos el control de la 
mercancia que se nos devuelve por un cliente y 
de la que nosotros devolvemos a un proveedor. 
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* MOVIIIIUtOS * 
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Pantalla ch movimientos de almacén. La rapidez de 
búsqueda de códigos es considerable. 
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Opción 4: Clientes 
Como en todo programa de facturación, 
partimos de esta opción para dar altas, bajas, 
consultar o modificar los datos de un cliente 
determinado, Los campos que contiene cada ficha 
son los fundamentales para la confección de una 
factura, desde el código, de 5 caracteres 
alfanuméricos, al Nombre, Dirección, Población, 
CIF, etc. Se echa en falta un campo de 
acumulados, con el que se pueda llevar un 
control de lo que cada cliente nos lleva 
comprado. Y es una lástima, porque dada la 
disposición de los datos, en las dos unidades, 
debería de haber sitio para llevar un pequeño 
control histórico como éste, 
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El apartado de 
facturación permite 
almacenar, editar, 
borrar, consultar y 
emitir -claro- 
facturas. 


................................... 
*"I"U DI FACTURAS* 
................................... 
................................... 
* * 
* 1. Facturacion. * 
* * 
* 2. Idicion de Facturas. * 
* * 
* 3. Listados. * 
* * 
* 4. Inicializar Facturas. * 
* * 
* S. Inicializar totales. * 
* * 
* 6. Retorno a Aenu principal. * 
* * 
................................... 
Opcion..: I 


Opción 5: Facturas 
Aquí nos encontramos con el corazón del 
programa. Al entrar por esta opción, nos 
topamos con un submenú, de seis opciones: 
Facturación, desde donde entraremos los datos de 
una factura a emitir. El programa es aquí 
ventajoso porque permite hacer prácticamente 
todo con las facturas, como repetir la impresión, 
anuladas, modificadas, etc, 
La siguiente opción de este submenú es la 
edición de facturas, desde donde podremos 
modificar una factura guardada en memoria, 
incluso si ésta ya ha sido emitida, llegando el 
caso de, por ejemplo, una factura devuelta, en 
parte o en su totalidad. Pasaríamos luego al 
apartado de Listados, en el cual podremos 
consultar los datos contenidos en una o varias 
facturas, pudiendo buscar por número de factura, 
código de cliente o fecha de emisión. La opción 
es, sin duda, acertada, porque, al hacer una 


UKKUUKKUKUUUUKUUUUUKKUUUUUUKUXUUUUUUKUXUUKXUUUU 
* ALIIHE" * 
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CODlGO....... : 
IElOII"AClfJt, : 
P.u.P..,.....: 

 mARCó"::; 
STOCI< 
STOCI< .. 
STOCI< 11 .: 
)!EfIPR{JU.. , .. . : 
TOrAL EHII!AI : 
rOrAL SALIDAS: 
PRECIO mID.: 
IEU, DlIRADA.: 
IEU, SALIDA..: 
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En la ficha de artículo, tenemos información en"4:iempo real 
de las existencias, 
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consulta de todas las facturas emitidas, el 
programa nos dará al tiempo los totales 
facturados, así como lo que tenemos pendiente de 
cobrar, datos de suma importancia para cualquier 
empresa. 
Las dos opciones que restan, inicializar 
facturas e inicializar totales, son necesarias la 
primera vez que se utiliza el programa para crear 
o abrir algún tipo de fichero. Su utilidad 
posterior es la de dejar a cero el fichero de 
facturas, así como los totales correspondientes, 
llegado el caso de que la capacidad del disco ya 
no dé para más. 


J()(J(UXXUU...IIUXXJIXXXXX..uullOl..xxn.IfXJUlII....XIlJUl..K........iOIJUI.....IIJI........... 
* IMICIACIOM * 
IXnxx...uu....XXJUUIXX............n...........uu.............................un.MI 
1. Alllactn 
2, Novi
itntos 
3, Clientts 
4. MUllero de factura 
S, Totalts a cero 
6, TOroS los ficheros 
7, Nf11u principal 
ore : . 
ItOTA:Recuerde que los datos anteriores seran borrados 


El proceso de inicialización de ficheros es cómodo, pues 
permite dejar a cero unos sí y otros no. 


Opción 6: Creación e iniciación 
Esta opción es necesaria, del mismo modo que 
las dos últimas comentadas, al entrar por primera 
vez en el programa. Con ella creamos los ficheros 
de trabajo: Almacén, movimientos, clientes y 
facturas, y por el mismo procedimiento, 
borramos ficheros de datos ya existentes, La 
ventaja es que se pueden inicializar por separado; 
es decir, se puede mantener el fichero de clientes 
-por ejemplo- e inicializar el de facturas, con 
lo que no habrá que dar de alta a la clientela 
cada vez que se nos llena el disco. 


A modo de resumen... 


El programa cumple a la perfección el 
cometido que se le ha dado: facturar y llevar el 
control de movimientos del almacén, y tiene 
ventajas como la de poder confeccionar dos 
formatos diferentes de factura, y, dato a favor de 
la empresa productora, el dejar la puerta abierta 
a cualquier modificación de este formato, a 
sabiendas, seguro, de que éste es problema del 90 
por 100 de los usuarios noveles de una 
facturación. Aun así, se echan cosas en falta, 
como es que lleve un control claro del IV A de 



 



proveedores, o que nos haga el inventario. 
Asimismo, no está claro que contemple diferentes 
tipos de IV A por artículo, con lo cual, este 
dato debería partir de la ficha de cliente, que 
sí puede tener diferentes tipos -al menos de 
recargo de equivalencia-o De la ficha sugeriríamos 
que partiesen también los datos de descuentos 
que se le hacen a un cliente, que si bien pueden 
variar, lo normal es que un cliente tenga un tipo 
fijo de descuento. También podría hablar de 
dejar a elección del usuario la localización de los 
datos en las unidades de disco, es decir, que 
hay quien tiene un solo cliente y 5.000 artículos y 
quien le ocurre todo lo contrario, con lo que a lo 
mejor le sería más ventajoso el disponer de la 
unidad B para los clientes. Por último, abogar 
por un control de errores por mala introducción 
de datos, pues es problema frecuente, sobre todo, 
en los primeros contactos con cualquier 
aplicación. De todos modos, quede claro que esto 
son sugerencias y no defectos, y que un 
programa ideal y a gusto de todos, no existe, y SI 
existiese, no estaría nunca por debajo de las 
20.000 pesetas, que es el caso de éste. 
y sólo falta por apuntar un detalle: la 
presentación del paquete, que rompe con lo 
normal de estos casos. Particularmente, nos ha 
resultado agradable, dada la sencillez y lo 
práctico de una carpeta del tamaño 
de las que podemos ver para 
juegos, sin que lo que 
contenga sea un 
juego, y lo 
logrado del, 
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asimismo, pequeño manual de instrucciones, que 
se ajusta perfectamente a las dudas que puedan 
surgir en un primer contacto con el 
programa. 
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Una e. ta gratis 
por la compra 
de números atrasados 
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Esta sección está dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores, IOdo aquel que lo 
desee puede enviamos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. 
¡ABSTENERSE PIRATAS! 


. . . . . . . . . . . . . . 


Vendo CPC 664 con monitor 
en color, tapa de plástico para 
el teclado, manuales, más de 
300 programas, juegos, 
utilidades, gestión y educativos, 
Todo por 85.000 ptas. Llamar 
al tel. 455 30 17 de Madrid. 
Javier. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 664, 
con unidad de disco; fóforo 
verde, disco de CP/M 2.2, 
D.R. Lago, más 10 juegos por 
65.000 ptas. Juan Carlos Olmos. 
Josep Pla, 177 E, 3. a. 08020 
Barcelona. Tel. 303 29 32 
(mañanas de 9 a 2), 


. . . . . . . . . . . . . . 


Urge vender un Amstrad 
CPC 472 F.V. con un joystick, 
varios juegos, revistas, etc. 
Interesados llamar al tel. 
235 64 00, Barcelona. Preguntar 
por Rafael de 15 a 21 horas. 


. . . . . . . . . . . . . . 


Vendo ordenador ZX 
Spectrum 64 K (15 ROM-48 
RAM) con los manuales en 
castellano. Interface y teclado 
multifunción. Lote de unas 10 
cintas repletas de juegos y 
joystick. Todo por sólo 35.000 
ptas. Llamar a Javier al tel. (93) 
25807 71 (de 22 a 23 horas). 


. . . . . . . . . . . . . . 


Vendo Amstrad 6128 con 
pan
lla fósforo verde, así como 
los siguientes extras y software: 
Supercalc 2 (6128 Y 8256), 
Multiplan, 16 juegos, 
Microspread, 2 joysticks, libro 
CP.M Plus, libro Basic 
Amstrad y 50 números de 


MICROHOBBY AMSTRAD 
Semanal. Precio total: 110.000 
ptas, Contado. Llamar al tel. 
(91) 248 2442 (a partir de las 8 
de la tarde). Preguntar por 
Jesús. 


. . . . . . . . . . . . . . 


Desearía contactar con 
usuarios que tuvieran 
instrucciones del juego Missión 
Imposible. A ser posible, 
fotocopia. Pagaría rápidamente. 
Mandar instrucciones a Miguel 
Pérez Laguna. Padre Jesús 
Ordóñez, 5 duplicado. Madrid. 


. . . . . . . . . . . . . . 


Vendo, por cambio de 
equipo, programas de todo tipo 
para IBM PC. Precios 
asequibles. Biblioteca 
extensísima. Llamar al tel. (93) 
244 90 94 ó 424 90 94. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128 
con monitor F.V. y 12 discos 
de 3" con tratamientos de 
textos, Base de Datos, Turbo 
Pascal, etc. Todo por 60.000 
ptas, Llamar al te!. (93) 
305 57 40 de Barcelona. 
Preguntar por Félix. 


. . . . . . . . . . . . . . 


¡Oferta!Vendo CPC 6128, 
con monitor fósforo verde. Con 
joystick, fundas, más de 10 
discos con los mejores 
programas de utilidades y de 
juegos del mercado, Con 
colección de revistas y con 
cuatro libros. Todo por 95.000 
ptas. José Huesear Sánchez. 
Andalucía 10. 11160 Barbate 
(Cádiz). Tel. 43 09 39. 


. . . . . . . . 


Mercado 
COMUN 


Vendo Amstrad CPC 6128 
con monitor de fósforo verde 
(Garantía). Ideal para 
estudiante de informática, ya 
que lo vendo con compiladores 
(Cabal, Turbo Pascal, Fortran), 
también con utilidades (dBase 
11, Wordstar, Multiplan). Unos 
30 juegos, copian es más 
utilidades, joystick, revistas, 
curso autodidáctico de Basic. 
Todo va con manuales y en sus 
respectivos discos (20). Además 
enseñaría el manejo, Lo 
mandaría a cualquier punto de 
España. Precio 120.000. Ángel 
Luis Navarro Licer. Castrillo de 
Aza, 14. 28031. Madrid. Tel. 
(91) 442 75 07. (Dejad 
teléfono) . 


. . . . . . . . . . . . . . 


Desearía contactar con 
usuarios del CPC 464 para 
intercambiar juegos. Más de 50 
títulos, contestaré. Interesados 
escribir a Francisco Honrubia 
Cascales. Teruel, 32, 3. o izda. 
02005 Albacete. 


. . . . . . . . . . . . . . 


Vendo Amstrad 664. Fósforo 
verde, Con más de 20 
programas: Mini Office, Puzzle, 
Base de Datos, Harrier, Bich 
Heard, etc. Precio: 70.000 ptas. 
Tel. (93) 692 58 89 (de 9 a 14, 
o de 16 a 20 horas). 


. . . . . . . . . . . . . . 


Me he comprado un 
Amstrad CPC 6128, con 
monitor fósforo verde, hace un 
mes aproximadamente. Aquí 
van mis dos problemas: 
1. Mi monitor es F.V. por 
lo que veía los juegos buenos en 
un sólo color pero con varias 
. . . . . . 
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Mercado 
COMUN 


. . . . . . 


gamas, Deseo intercambiar, y 
pagar la diferencia de precio 
entre los monitores, o comprar 
solamente el monitor en color. 
2. Mi otro problema es que 
mi manual de instrucciones 
viene en inglés, ya que el 
ordenador fue comprado en 
Inglaterra. Como no entiendo 
absolutamente nada, sólo puedo 
trabajar con un 15, ó 25 por 
ciento de las posibilidades de mi 
equipo. Por favor, compro o 
intercambio manual de 
instrucciones para el CPC 6128. 
Feo. José Sánehez Nogueira. Avda. 
Camelias, 103, 3.° B, Vigo 11. 
36200 Pontevedra. Tel. (986) 
41 16 56. También me podéis 
escribir al apartado postal 5132 
de Vigo. 


. . . . . . . . . . . . . . 


Urge vender ordenador 
CPC 472 (verde), con joystick 
quick shot V, los mejores juegos 
del momento, manuales, más de 
50 revistas sobre Amstrad, por 
55.000 ptas. (completamente 
nuevo, poco uso), se vende para 
comprar un ordenador mayor. 
Tel. (91) 265 5898, llamar 
tardes de 6,30 a 10,00, 
preguntar por Miguel Ángel. Se 
regalan gran cantidad de cintas 
para almacenamiento de datos. 
Valor actual: 73.000 ptas. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 464. 
Fósforo verde. Con dos 
mandos, Revistas y más de 50 
juegos. Todo por 39.500 ptas 
Ratón AMX por 9.500 ptas. 
Alexis Cutiérrez. Tel. (942) 
27 46 61. 


" 


. . . . . . . . . . . . . . 


Vendo lápiz óptico 
DK'Tronics compatible con 
Amstrad ,,464 y con Amstrad 
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664 (no es compatible con el 
6128), o cambio por un lápiz 
óptico compatible con el 
Amstrad 6128. Interesados 
llamar al tel. (93) 325 40 80 o 
escribir a Sepúlveda, 41, ese. 
dcha. 08015 Barcelona. 
Preguntar por Antonio. Precio a 
razonar: 5.500 ptas. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128 
con garantía, funda protectora, 
15 discketes, armario metálico 
para diskettes, libros y revistas, 
programas de juegos, utilidades 
y profesionales. Llamar a Tomás 
Portillo. Tel. (93) 305 2407 (a 
partir de las 10 de la noche). 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 464, 
monitor color, más 21 juegos. 
Interesados llamar al tel. (93) 
418 13 31. Preguntar por 
Al'!iandro, o bien escribir a 
A/¡!iandro Ripoll, Calatraba, 68, 
1. 0-1. a. 08017 Barcelona. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128, 
monitor color, con impresora, 
cassette grabador, joystick y 
otros complementos, así como 
revistas, cintas y discos. 
125.000 ptas, Preguntar por 
Juan Luis. Tel. (945) 25 00 23. 


. . . . . . . . . . . . . . 


Vendo mis libros de 
informática al 50 por 100 del 
precio de mercado. Editoriales 
Data Becker, Anaya, McGraw- 
Hill, ete. Para toda clase de 
ordenadores personales e 
informática en general. Gran 
surtido. Contactar con Antoniu 
]. Navarro. María Maroto 7, 5.° 
A, Murcia. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128 
(monitor color). Nuevo, 
completo y con algunos extras. 
Precio 100.000 ptas. Llamar al 
tel. (981) 31 46 83. El Ferrol. 


. . . . . . . . 


Urge vender Spectrum 48 K, 
en buen estado, Añado 
manuales, juegos, conexiones y 
revistas. Todo por 20.000 ptas, 
También vendo interface 
Kempston y Sinclair con dos 
joystick Quickshot I por 5.000 
ptas. Interesados llamar al tel. 
(96) 333 39 81. Valencia, 
Preguntar por Pablo. 


. . . . . . . . . . . . . 


Vendo Amstrad CPC 6128 
con todo lo que en esta lista se 
menCIona: 
Monitor en color, teclado 
profesional en español, unidad 
de disco, 128 kbytes de 
memoria RAM, manual que 
contiene, Basic del Amstrad, 
Logo, sistemas operativo s 
CP/M 2.2 y CP/M Plus. 
Estructura y conexión del 
ordenador a la red eléctrica. 
Cable para la conexión externa 
del cassette normal, seis Floppy 
Discks vírgenes, dos discos con 
las dos versiones del sistema 
operativo anteriormente 
nombradas y, con el Logo y 
Programas del Sistema 
Operativo, un disco con 
procesador de textos. 
Ensamblador Cena-3, editor de 
gráficos, juegos, etc.,.., y 
algunas revistas con programas 
y noticias sobre Amstrad. Todo 
ello a un precio razonable, 
discutible. Interesados llamar al 
tel. 88 00 23 (tardes en días 
laborables y a cualquier hora 
los días festivos), Escribir a 
Prudencio Pérez Calcines. Cristobal 
Colón, 1. La Montaña de 
Galdar. (Las Palmas de Cran 
Canaria). ¡Urge por cambio de 
ordenador! 


. . . . . . . . . . . . . . 


Compraría sintetizador de 
voz en castellano (sólo 
software). Vendo amplificador 
stéreo para el Amstrad de 5,5 
W, con o sin bafle, nuevo. 
Vendo cables de ampliación 
para monitor y alimentación. 
Mi dirección es Manuel Antonio 
Ramos Romero. Rodríguez 
Marín, 42. San Juan de 
Aznalfarache. (Sevilla). 


. ..... 



La utilidad de 
Buffer y Ram Disk 
Me dirijo a vuestra sección 
para que me contestéis a estas 
dos preguntas: 
¿Qué significan y qué utilidad 
tienen los términos informático s 
Buffer y Ram Disk? 
Gracias y adelante con 
vuestra revista. 
Juan Carlos Galán Rodríguez 
(Madrid) 


Un buffer es, sencillamente, una 
memoria intermedia, este tipo de 
estructuras se emplea 
fundamental111£nte para aho:rar 
tiempo, o para no perder mnguno de 
los valores que deseamos manipular. 
Al escribir en U1W cinta o en un 
disco, lo que hacemos realmente es 
enviar los datos a una 111£moria 
intermedia, donde se van cogiendo 
para depositarlos d£finitivame
te 
sobre e! soporte d£ almacenamzento. 
Lo mismo sucede para e! teclado, la 
impresora o, prácticamente, en 
cualquier operación donde se mantjen 
ficheros de datos. 
El término Ram-Disk es aún más 
sencillo de comprender, como su 
traducción indica, es un disco RAM. 
Este disco se utiliza de forma 
idéntica a como utilizamos una 
unidad de disco normal, se pueden 
hacer todas las operaciones 
habitunles, borrar, grabar, leer, 
renombrar. .. La diferencia está en su 
gran velocidad de lectura, pero tiene 
e! inwnveniente d£ que al apagar e! 
equiPo se borra su contenido. 


Problemas de grabación 
Para empezar os diré que soy 
un asiduo lector vuestro y 
aunque tengo varias dudas, 
intentaré reflejaros algunas de 
ellas. 
Os diré que poseo un CPC 
6128 y tras haber grabado en 
un disco 35 programas, los 
cuales suman todos ellos 104 
Kb, tengo justamente libres 
todavía 70 Kb. La cuestión es 
que al querer grabar otro 
programa me aparece el 
mensaje de error 
«DIRECTORY FULL». ¿Que 
es lo que pasa? Os diré que 
estuve probando con el 
comando «SET» de CP/M para 

signar PASSWORD. No sé si 
será ésta la causa. ¿Puedo poner 
PASSWORD a un programa 


S . duda 

n 


ALGUNA 


para no poder acceder a él en 
BASIC?, en ordenadores 
grandes sí. 
Otra de mis preguntas es que 
tras haber tecleado el programa 
magnificador de pantalla del 
M.H. número 46 y tras haberlo 
grabado, no sin antes haberlo 
corregido varias veces. Al 
querer cargarlo y ejecutado 
mediante el programa basic: 
10 MEMOR y &FFF 
20 LOAD «MAGNh, &AOOO 
que viene en dicho número; me 
aparece el mensaje de error 
«MEMORY FULL IN 20». 
¿Qué es lo que ocurre? 
Emiliano Rosales 
(Cádiz) 


La exPlicación al primer problema 
se encuentra en que e! disco de! 
Amstrad sólo admite un número de 
determinados ficheros en un disco, ya 
que éste es e! trozo reservado para los 
datos necesarios de! directorio. 
Sí puedes poner PASSWORD a 
tus propios programas, bastará con 
que incluyas estas dos primeras líneas 
en e! programa que desees proteger: 
10 INPUT" > ,,; PASSWORD: 
IF PASSWORD'"ROMEO" 
THEN NEW ELSE CLS 
El programa basic, deberá haberlo 
grabado con la opción "p" (save 
"nombre", P). 
Para resolver su segundo problema, 
bastará con que incluya la siguiente 
línea: 


J openout "RESER VA" 


Para copiar programas 
Soy un gran adicto de todo lo 
relacionado con el mundo del 
Amstrad y poseedor de un CPC 
464. 


En una revista (creo que era 
la vuestra/nuestra), aparecía el 
listado de un copión. Esto me 
produjo una gran alegría, pero 
cuando me disponía a copiar un 
programa turbo (de los 
conocidos como «cargado por 
rayas») vi que esto no era 
posible. 
Probé con otros programas 
comerciales de este tipo y 
comprobé que tampoco se 
podía, 
El favor que les pido es, 
pues, que me indiquen cómo 
copiados. 
Si esto no es posible por falta 
de espacio, les ruego lo 
publiquen en la sección de 
TRUCOS, ya que resultaría de 
un gran interés para muchos 
usuarios que se encuentran con 
mi mismo problema. 
José Vicente Sánchez Ortega 


No sólo es posible contestarle 
positivamente d£sde esta sección, SinO 
que no existe tal "trUijuillo", 
desprotegedor universal de programas 
comerciales. Hoy en día, uno de los 
oficios que más se cotizan es e! de 
"protegedor" de programas 
comerciales. Real111£nte, la labor de 
estos hombres roza la artesanía y 
para romper uno de sus productos 
hace falta mucha inteligencia e 
imaginación, 
Existen dos soluciones posibles a 
su problema: la primera es que 
ataque directamente, y, una por una, 
cada una de éstas hasta que las 
«reviente", La segunda solución es 
realizar, una vez cargado e! 
programa, un clon de la memoria. 
Por desgracia, para realizar esta 
tarea es absoluta111£nte imprescindible 
contar con e! apoyo de! hardware. 
Actualmente, que sepamos, existen en 
e! mercado español dos periféricos que 
realizan esta tarea, se trata d£l 
Multiface TWO, que distribuye 
Babeta y de! MIRAGE que 
comercializa British Soft. 
De todos modos, y para no 
llamamos a engaño, queremos 
resaltar que los clónicos de los 
programas copiados no funcionan en 
ausencia de! periférico, esto es, para 
jugar, e! periférico deberá estar 
conectado al ordenador. Esta 
característica inhabilita e! periférico 
para prácticas Piratas y le confiere 
exclusivamente una utilidad casera, 
para realizar copias que tengamos en 
cinta, en disco, o viceversa, o 
simPlemente como sistema de 
seguridad. 
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CI Duque de Sesto, 50. 28009 MADRID 
Metro O'Donnell o Goya 


PTAS. PTAS. 
THEY SOLD A MILLION III _ 2.500 NONAMED 2.100 
ASTERIX 2.100 4 SUPER 4 2.500 
TOP GUN 2.100 ARMY MOVES 2.300 
FAT WORM 2.100 GAME OVER 2,300 
REVOLUTION 2.300 COBRA 2.100 
RAMÓN GUTIERREZ 1.900 GOONIES 2.300 
GAUNLET 2.300 ANTIRIAD 2.100 
BREAKTHRU 2.300 AVENGER 2.100 
DUSTIN 2.100 FIRELORD 2.100 
ARQUÍMEDES XXI 2.100 URIDIUM 2.100 
FIGHTING WARRIOR 495 BOUNTY BOB 495 
DUMMY RUN 495 SOUTHERN BELLE 495 
NOVEDADES DE KONAMI (lO JUEGOS)+RELOJ ROBOT O CALCULADORA 1.850 


SPECTRUM PLUS 19.800 PTAS. 
GRATIS 1 SUPLETORIO 
A . ' TELEFÓNICO 
it

 
.
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. 
#
;, 
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$
 
:, 

 &
+

 0., J"1fiI 
'. 
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.,......, 


IMPRESORAS 
20% DE DESCUENTO 


PTAS. 
CASSETTE ESPECIAL 3,995 
LÁPIZ ÓPTICO 2,890 
CARTUCHO MICRODRIVE 545 
CARTUCHERA 4 MICRODRIVES 95 
INTERFACE SONIDO TV 2.595 
INTERFACE CENTRONICS RS-232 8,495 
DISKETTES 3" 735 
DISKETTES 5 1/4" 295 
CINTA C-15 ESPECIAL ORDENADOR 69 
INTERFACE MULTIJOYSTICK _ 3,795 


1# .... 




 


.....1# .... .... 
/ " 
POR CADA PROGRAMA QUE COMPRES 
¡¡GRATIS!! UNOS CASCOS DE MUSICA ESTEREO 
SI TU COMPRA ES SUPERIOR A 800 PTAS. 


SERVICIO TÉCNICO DE REPARACiÓN 
TARIFA FIJA DE 3.600 PTAS. 
TAMBIÉN A PROVINCIAS 
SIN GASTOS DE ENVio 


HOFERTAS EN JOYSTICKS!! 
PTAS. 
1.195 
1.495 
1.495 
1.995 
2,495 
2,795 
2.795 
3.395 


QUICK SHOT I 
QUICK SHOT U 
QUICK SHOT V 
QUICK SHOT IX 
QUICK SHOT I+INTERFACE _ 
QUICK SHOT U + INTERFACE _ 
QUICK SHOT V + INTERFACE _ 
QUICK SHOT IX+INTERFACE _ 


PRECIOS EXCEPCIONALES PARA 
TU AMSTRAD CPC-464, CPC-6128, 
PCW-S256, PCW-8512 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO. TEl. (91) 
275 96 16 - 274 75 02 O ESCRIBIENDO A: MICRO-l. CI DUQUE DE SESTO, 50. 28009 MADRID. 
Tiendas y distribuidores grandes descuentos. 

 Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 274 75 03. 



. 


GESTI 


. 


I PCW 8256 1 


FACTURAS AL INSTANTE 
Y SIN PROBLEMAS (V) 


En este V capítulo del 
programa de facturación, 
ofrecemos un amplio listado 
para conseguir el IV A 
repercutido, una auténtica 
utilidad para cualquier 
profesional, que viene a 
engrosar, junto con otro 
pequeño listado sobre la 
reestructuración del fichero de 
líneas, este extenso programa 
de gestión. 


PROGRAMA BAS 


10 CHAIN ..enu 
20 ENO 


LlSFACTU BAS 


5 ON ERROR GOTO 20000 
10 GOSUB 11440 
20 GDSUB 11260 
25 total=O:contador=O 
26 LPRINT CHR$(1S); 
30 PRINT FNloc$(10,4)j H L 1 S T A O O O E 1 V A R 
E P E R e u T 1 D O. 
40 PRINT FNloc$(50,S);HFecha de expedicion :" 
120 xS=73:yS=S:alfaS=2:capS=6:decS=0:GOSUB 10000 
125 IF t$="" THEN CHAIN ".enu 
130 fecha$=t$:GOSUB 10310 
140 IF fecha$="fallo!" THEN 120 ELSE fechae$=fecha$ 
145 PRINT FNloc$(73,S)jfechae$j" " 
370 PRINT FNloc$(5,2S)j"CORRECTO (INS) CANCELAR (CAN) 
: "j:GOSUB 11380 
375 PRINT FNloc$(10,2)j. · 
380 GOSUB 11500 
390 IF bienS=O THEN 340 


I PCW 8512 1 


...--..- 


, 



 


/ 
/' 


I 


/' 


.... 


391 OPEN "R.,3,"a:resumen,tex",25 
392 FIElD 3,4 AS n,fact$,6 AS fecha.f$,3 AS cli.f$,4 A 
S base,f$,4 AS iva,f$,4 AS rec,f$ 
393 6ET 3,1 
394 ultimo,registro=CVS(iva.f$):ultima.factura=CVS(rec 
, fS) 
395 li.fac=2 
396 6ET 3,li.fac 
397 n,fact,e=CVS(n.fact$):fecha.e$=fecha.f$:codl$=cli, 
f$:base,l=CVS(base.f$):iva=CVS(iva,f$):rec=CVS(rec,f$) 
398 IF codl$=" · OR codl$="" OR codl$=STRING$(3,CHR$ 
(O» THEN 630 
400 cad$=STRING$(128,CHR$(0»:nomfidat$="a:cclien,tex. 
:nolfiind$="a:cclien.key":nu.fiS=2 
410 ranS=1:cla$=codl$:tipS=1 
420 GOSUB 10440 
430 IF ferrorS<}O THEN 340 
440 noabre$=MID$(cad$,l,29) 


"' 
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450 IF contador=O THEN 60SUB 1000 
460 60SUB 7000 
625 contador=contador+l: IF contador=60 THEN LPRINT CH 
R$(12):contador=0 
630Ii,fac=li,fac+l 
640 IF li,fac}ultimo,registro THEN GOSUB 6000:LPRINT C 
HR$(12):CLOSE 3:60SUB 2000:60TO 10 
700 GOTO 396 
1000 ' ----------- cabecera ------------- 
1050 LPRINT CHR$(18)j"LISTADO DE IVA REPERCUTIDO"j 
1060 LPRINT TAB(50)j"Fecha de emision : Hjfechae$:LPRI 
NT 
1065 LPRINT CHR$( 15WNUH, F FECHA DESC 
RIPCION BASE, IMPON IVA CUOTA 
REC CUOTA TOTAL,FA 
CT" 
1070 LPRINT "----- ------ ------------------------ 


------------- ---------- --- ------- --- --- 


---- ----------" 


1080 RETURN 
2000 ' ------------ borrado de archivo --------------- 
2010 PRINT FNloc$(5,28)jHBorra el archivo de facturaS 
(S/N) : "j:r$=INPUT$(I) 
2020 IF r$(}"NH AND r$(}"S" THEN 2010 
2030 IF r$=HNH THEN RETURN 
2040 ERA a:reSUlen,tex 
2050 OPEN "R",3,"a:resuMen,tex.,25 
2060 FIELO 3,4 AS n,fact$,6 AS fecha,f$,3 AS cli,f$,4 
AS base,f$,4 AS iva.f$,4 AS rec,f$ 
2065 LSET n,fact$=HKS$(O) 
2070 LSET fecha,f$=" 
2080 LSET cli,f$=H 
2090 LSET base,f$=HKS$(O) 
2100 LSET rec,f$=HKS$(ultila.factura):LSET iva.f$=MKS$ 
(2) 
2110 PUT 3,1 
2120 CLOSE 3 
2130 RETURN 
6000 . ---------------- linea de totales ------------- 


" 


6010 LPRINT 
6020 LPRINT H T O TAL B R U T O 
: "j:LPRINT USIN6 "1,111,III"jtotal,b 
6030 LPRINT " T O TAL 1, V, A, 
: "j:LPRINT USIN6 "1,111,1""jtotal,i 
6040 LPRINT " T O TAL R E C A, 
: "j:LPRINT USING "1,11',III"jtotal.r 
6060 total,b=O:total.i=O:total,r=O 
6065 LPRINT 
6080 RETURN 
7000 ' ---------------- Ilpresion de lineas ---------- 


7010 u$="I,111 \ \ \ 
\ 11,111,111 11I 111,111 11I 111,111 
11,111,1"" 
7020 LPRINT USIN6 uSjn,fact,ejfecha,eSjnoMbreSjbase,lj 
ivajbase,l*iva/l00jrecjbase,ltrec/lOOjbase.l+base,ltiv 
a/l00+base.ltrec/lOO 
7030 total,r=total.r+base.ltrec/l00:total.b=total.b+ba 
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... 


se.l:total,i=total.i+(base,ltiva/l00) 
7040 RETURN 
10000 REH --------- control de digitos---------------- 


10010 RE" xS=coluMna yS=fila capS=capacidad 
10020 REM decS=decimales alfaS=nuMerico{l) alfa 
nUlericos (2) alfanumcol (3) 
10030 RE" -------------------------------------------- 


10040 PRINT FNloc${xS,yS)jSTRIN6S(capS+decS+l,"_") 
10050 t$="H:t=O:r$="":falloS=O:puntoS=O 
10060 PRINT CHR${7) 
10070 x1S=xS 
10080 PRINT FNlocS(xlS,yS)j:r$=INPUTS{l) 
10090 r=ASC(r$) 
10100 IF r=13 THEN 10170 
10110 IF r(32 OR r}255 THEN 10080 
10120 IF r=127 ANO t)O THEN t=t-l:t$=LEFT${t$,t): PRIN 
T FNloc${xS,yS)jt$j"_":GOTO 10080 
10130 IF r=127 AND t=o THEN 10080 
10140 t=t+ 1 
10150 IF t)capS+decS THEN t=t-l:GOTO 10080 
10160 tS=t$+r$:PRINT FNloc$(xS,yS)jt$:60TO 10080 
10170 RE" ---------------- validacion ---------------- 


10180 IF alfaS=2 THEN RETURN 
10190 IF alfaS=3 THEN t$=t$+STRIN6${capS-LEN(tS),H M): 
RETURN 
10200 FOR numericoS=1 TO LENCtS) 
10210 rS=MID${t$,numericoS,I) 
10220 IF (rS(HOH OR r$)H9 H ) ANO r$(>H,H THEN falloS=1 
10230 IF r$=H," THEN puntoS=puntoS+l 
10240 NEXT numericoS 
10250 IF falloS=1 OR puntoS}1 THEN 10000 
10260 tl=CDBL(VAL{tS» 
10270 tl=tl*10'decS 
10280 tl=INHu) 
10290 tl=tl/l0"decS 
10300 RETURN 
10310 REH ------------------- fecha ------------------ 


10320 RE" la fecha siempre 6 digitos 
10330 REH -------------------------------------------- 


10340 IF LEN(fecha$)()6 THEN fechaS=Hfallo!H:RETURN 
10350 fl=VAL(MID${fechaS.l,2» 
10360 f2=VAL{MIDS{fechaS,3,2» 
10370 f3=VALCHID$(fechaS,5,2» 
10380 IF fl(l OR f2(1 OR fl>31 OR f2>12 THEN fechaS=Hf 
allo!H:RETURN 
10390 f4=Cf2=1)+Cf2=3)+Cf2=5)+(f2=7)+{f2=8)+{f2=10)+(f 
2=12) 
10400 IF fl)30 ANO NOT f4 THEN fecha$=Hfallo!H:RETURN 
10410 IF fl}29 ANO f2=2 THEN fecha$="fallo!":RETURN 
10420 IF fl)28 ANO f2=2 AND f3 MOD 4=0 THEN fecha$=Hfa 
llo! H: RETURN 
10425 fecha$=MIO${fecha$,l,2)+"-"+HIDS(fecha$,3.2)+"-" 
+HIO$(fecha$,S,2) 
10430 RETURN 



10440 REH ------------------------ ficheros ---------- 


10450 REH 
10460 REH 
10470 REH 
104S0 REH 
10490 RE" 
10500 REH 
10510 RE" -------------------------------------------- 


10520 RE" 
10530 REH inicio 
10540 BUFFERS 10 
10550 longreg
=LEN(cad$) 
10560 OPEN MKM,nuafi
,noafidat$,noafiind$,2,longreg
 
10565 longreg
=LEN(cad$) 
10570 FIELD nuafi
,longreg
 AS fic$ 
105S0 ON tip
 60SUB 10630, 10710, 10S20, 10930, 11000,1109 
O 
10590 IF tip
{l OR tipX>6 THEN 10620 
10600 res
=CONSOLIOATE(nu.fil) 
10610 CLOSE numfiX 
10620 RETURN 
10630 RE" lectura de una clave 
10640 res
=SEEKKEY(nuafiX,O,ran
,cla$) 
10650 IF res
{>O THEN ferrorX=resX:RETURN 
10660 ferror
=O 
10670 numS=FETCHREC(nuafiX) 
106S0 6ET nu.fiX,nua
 
10690 cad$=f i c$ 
10700 RETURN 
10710 RE" --- lectura de la clave siguiente 
10720 resX=SEEKKEY(numfiX,O,ran
,cla$) 
10730 IF resX{>O THEN ferror
=resX:RETURN 
10740 ferror
=O 
10750 resS=SEEKNEXT(numfi
,O) 
10760 IF res
{>O ANO res
{>101 ANO res
{>102 THEN ferr 
orX=resS:RETURN 
10770 ferrorX=O 
10780 nu.I=FETCHREC(numfi
) 
10790 6ET nUMfi
,nuaS 
10S00 cad$=fic$ 
10S10 RETURN 
10820 REN lectura de la clave anterior 
10830 resS=SEEKKEY(numfi
,O,ran
,cla$) 
10840 IF resX<>O THEN ferror
=res
:RETURN 
10850 ferror
=O 
10S60 resS=SEEKPREV(nuafi
,O) 
10870 IF res
{>O ANO res
<>101 ANO res
<}102 THEN ferr 
orX=resX:RETURN 
108S0 ferror
=O 
10890 nua
=FETCHREC(numfil) 
10900 6ET nUMfi
,nuaS 
10910 cad$=fic$ 
10920 RETURN 
10930 RE" ----- borrar un registro 


. 
GESTI · 


10940 res
=SEEKKEV(nuMfi
,O,ran
,cla$) 
10950 IF resl<}O THEN ferrorS=resX:RETURN 
10960 ferrorl=O 
10970 res
=OELKEY(nuafi
.O) 
10980 IF resS{}O ANO resS{}101 ANO resS{)102 ANO res
{ 
>103 THEN ferror
=resS:RETURN 
10990 ferrorl=O:RETURN 
11000 RE" ------ altas de claves 
11010 res
=SEEKKEY(nUlfi
,O,ran
,cla$) 
11020 IF resl=O THEN ferrorX=900:RETURN 
11030 ferror
=O 
11040 LSET fic$=cad$ 
11050 res
=ADOREC(nuafil,O,ran
,cla$) 
11060 IF res
<>O THEN ferror
=res
:RETURN 
11070 ferror
=O 
11 OSO RETURN 
11090 REH ------ aodificacion de registros 
11100 res
=SEEKKEY(nuafil,O,ran
,cla$) 
11110 IF res
{}O THEN ferrorX=resS:RETURN 
11120 ferror
=O 
11130 nuaS=FETCHREC(numfi
) 
11140 6ET nuafi
,nua
 
11150 LSET fic$=cad$ 
11160 PUT numfi
 
11170 RETURN 
11180 RE" ----------------- borrado de la pantalla --- 


11190 REH pri,lin
=1 linea ult,linl=ultiaa linea p 
ri.col
=1 coluMna 
11200 RE" ult,colX=ultiMa columna 
11210 REH -------------------------------------------- 


11220 FOR pl
=pri,lin
 TO ult,lin
 
11230 PRINT FNloc$(pri,coIS,pl
)jSPC(ult,coIS-pri,colS 
) 
11240 NEXT piS 
11250 RETURN 
11260 RE" ------------- aarco de la pantalla --------- 


11270 ll$=CHR$(134)+STRIN6$(S7,CHR$(138»+CHR$(140) 
11280 PRINT cl$;11$ 
11290 FOR pl=l TO 26 
11300 PRINT CHR$(133)jSTRING$(87,CHR$(32»jCHR$(133) 
11310 NEXT pl 
11320 PRINT CHR$(135);STRIN6$(S7,CHR$(138»¡CHR$(141) 
11330 FOR pl=l TO 1 
11340 PRINT CHR$(133)jSTRIN6$(87," ")jCHR$(133) 
11350 NEXT pl 
11360 PRINT CHR$(131);STRIN6$(87,CHR$(138»;CHR$(137) 
11370 RETURN 
11380 REH ------------------- correcto sIn ----------- 


.. 


11390 r$="M:WHILE r${>"S" ANO r${>"N" 
11400 r$=INPUT$(l) 
1141 O WENO 
11420 IF r$=MS" THEN bienX=l ELSE bíenS=O 
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. 


11430 RETURN 
11440 REM ------- inicializacion --------------------- 


11450 cl$=CHR$(27)+NE"+CHR$(27)+NV" 
11460 DEF FN LOC$(x,y)=CHR$(27)+"V N +CHR$(32+y)+CHR$(32 
+x) 
11470 RETURN 
11480 REM c,digitos 10000,fecha 10310,archivos 10440,b 
orrado 11180,marco 11260,correcto 11380,inicializacion 
11440 
11500 REM ----- limpia linea mensajes ----- 
11510 PRINT FNloc$(S,28)i" 


H:RETURN 


CAMBIO BAS 


10 OPTION RUN SH 
20 PRINT H}REESTRUCTURACION DEL FICHERO DE LINEA 
30 PRINT "}" - A 
40 PRINT "}Quite el disco de programas del Impulsor 
e inserte el disco de datos" " 
SO PRINT "}Cuando este preparado pulse una tecla, 
60 r$=INPUT$(1) 
70 ERA m:*,bas 
90 OPEN "R",2,"m:albaran, tex" ,57 
100 OPEN "R",l,"a:albaran, tex H ,57 
110 FIELD 2,3 AS aS,6 AS b$,40 AS c$,4 AS d$,4 AS e! 
120 FIELD 1,3 AS cod,cli$,6 AS fecha,aS,40 AS descrIpc 
ionS,4 AS cantidad$,4 AS precioS 
130 6ET 1, 1 
140 ultimo.registro=CYS(precio$) 
150 n,l=2:n,2=2 . 
160 WHILE n,1<=ultimo,reglstro 
170 6ET 1, n,1 
180 IF cod,cliS{}"OOOH THEN GOSUB 390 
190 n.1=n,1+1 
200 WEND 
210 CLOSE 1 
220 LSET eS=MKSS(n,2-1) 
230 PUT 2,1 
240 ERA a:albaran,tex 
250 OPEN HR" 1 Ha:albaran. tex H ,57 , 
260 FIELD 1,3 AS cod.cliS,6 AS fecha,a$,40 AS descrIpc 
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20000 PRINT c 1$ 
20010 PRINT FNloc$(10,10)i"[[ ERROR!! : Compruebe si 
el disco del impulsor 'A' es el correcto. H 
20020 PRINT FNlocS(10,12)i H Si es correcto pulse (INS) 
en caso contrario cambielo y pulse (CAN)H 
20030 PRINT FNIocS(10,28)j 
20040 60SUB 11380 
20050 IF bienX=l THEN PRINT FNlocS(10,28)j"Error "jERR 
in en la linea "jERLj",LlaMe al servicio tecnico,"i:FO 
R g=l TO 5000:NEXT g:CHA 
IN "menu 
20060 IF ferror(}O THEN 60TO 20 
20070 RESUME 20 


( 
e 
e 


- 


- 


ionS,4 AS cantidadS,4 AS precioS 
270 6ET 2,1 
280 u,r=CVS(eS) 
290 n,1=1 
300 WHILE n,l(=u.r 
310 6ET 2,n,1 
320 LSET cod,cliS=aS 
330 LSET fecha,aS=b$ 
340 LSET descripcion$=c$ 
350 LSET cantidad$=dS 
360 LSET precioS=eS 
370 PUT l,n,l 
375 n,l=n,1+1 
380 WEND 
382 CLaSE 1 
383 CLOSE 2 -' d Recuerde reini 
384 PRINT n}ReestructuraCIon terMIna a, 
cializar el sistema si ha d
" n 
385 PRINT N}continuar trabaJando, 
386 SVSTEtI 
390 LSET aS=cod,cliS 
400 LSET bS=fecha.aS 
410 LSET cS=descripcionS 
420 LSET d$=cantidadS 
430 LSET eS=precioS 
440 PUT 2,n,2 
450 n.2=n,2+1 
460 RETURN 
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Análisis 
de inversiones 


En estos tiempos de crisis, cuando 
todos pensamos en el mañana, en 
invertir y sacar el máximo partido 
a ese pequeño capital que hemos 
ido atesorando durante años, 
recurrir a ese trasto gris que se 
empolva en un rincón, y del que 
sólo se utiliza el joystick, puede 
resultar una buena idea. Al menos, 
así lo cree R. H. Mole, autor del 
libro Análisis financiero de la 
colección Anaya Multimedia. 
El libro recoge a lo largo de sus 
185 páginas, una rápida, pero 
severa revisión, de los puntos más 
importantes de la teoría de la 
inversión, enfocándola 
fundamentalmente desde la ayuda 
que el usuario de 
microinformática puede encontrar 
en su mlCro. 
El Basic en que están realizados 
todos los programas del libro, 
puede considerarse de lo más 
estándar y no hay duda de que 
correrá en cualquiera de los 
modelos de Amstrad, ya sea epe, 
pewo pe. 
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Hipotecas, intereses, coste de 
capital y criterios paralelos, son 
algunos de los complejos conceptos 
que se manejan a lo largo del libro 
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y sobre los que se realizan un 
numeroso conjunto de programas 
Basic, explicados, quizás de forma 
excesivamente rápida, para el 
usuario novel. No obstante, aun 
para aquellos que hayan desistido 
de aprender informática hace 
mucho tiempo, el libro constituirá 
una extensa fuente de utilidades 
informáticas, encaminadas a la 
inversión, con las que llenaremos 
más de un disco y que quizás, 
¿quién sabe...?, algún día, acaben 
por hacernos ricos. 


Título: Análisis de inversiones 
Autor: R. H. Mole 
Editorial: Anaya Multimedia 
Páginas: 185 
Precio: 1.537 ptas. 


Física 
con logo 


Desde que Saymour Papert 
diseñase su primer intérprete de 
Logo, la famosa tortuguita no ha 
dejado de arrastar su caparazón 
por el mundo, sobre todo por las 
escuelas, dejando a su paso todo 
un rastro de círculos, elipses, 
espirales y cuadrados. 
Últimamente, por fortuna cada vez 
más, la tortuga está saliendo de ese 
caparazón de artista frustrado y 
parece que empieza a emplearse 
para cosas cada vez más serias. En 
este caso le ha tocado el turno a la 
Física, y viene también de la mano 
de la editorial Anaya Multimedia. 
Evidentemente, el Logo no 
podrá compararse nunca en 
potencia numérica con el Fonram, 
sin embargo en aplicaciones 
sencillas, que no simples, donde se 
utilizan únicamente números 
enteros o reales, el Logo puede 


resultar, tal y como demuestra 
Richard D. Hurley, autor del 
libro, una herramienta de 
¡¡; desarrollo, potente, fácil e incluso 

 divertida. 
Los temas que el libro recoge 
son de lo más variado y van desde 
el archiconocido problema de los 
zorros y los conejos, hasta la 
exposición de la exotérica Ley de 
Hubble relativa a los límites del 
Universo, 
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El Logo utilizado es un Logo 
híbrido que intenta, corno en el 
caso anterior, satisfacer a la 
mayoría de los computadores, La 
edición española del libro ha 
optado por traducir las palabras 
Logo al castellano, cosa no muy 
acertada, pero que quizá tras la 
puesta en marcha del proyecto 
Atenea, esté completamente 
justificada. Por otro lado. se 
agradece de vez en cuando ver un 
programa de ordenador escrito en 
castellano. Esto no debe suponer 
un hándicap insuperable para 
cualquier aficionado al Logo, que 
será completamente capaz de 
traducir a su propio intérprete los 
distintos procedimientos. 
En las últimas páginas del libro, 
apéndice B, aparecen traducidos a 
la síntaxis MIT, los programas 
más importantes desarrollados a lo 
largo de la obra. 
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A mano, pero no tanto 
Para los amantes del etiquetado 
familiar, para los oficinistas, 
comerciantes o, en fin, para todos 
aquellos que dan una aplicación 
práctica o profesional a la 
impresora, Zubiri presenta estas 
etiquetas en continuo. Una vez el 
ordenador en marcha y la 
impresora preparada, tan sólo nos 
restará introducir las etiquetas y ya 
casi está. Lo que falta es pegadas, 
operación que habrá que realizar a 
mano, por ahora.., El paquete que 
veis en la fotografía lo encontraréis 
en Compuworld (Alhcrto A
ujlera, 
17. Madrid), 6.000 etiquetas por 
4.875 ptas. 
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I Un buen nombre 


Estos americanos van tan 
deprisa, tan deprisa, que en su 
afán por acabar antes, cortan 
muchas palabras por la mitad. 
Tomemos, por ejemplo, el nombre 
de este joystick: «Pro». Así como 
suena, no nos diría nada, salvo 
que «pro» es una abreviatura muy 
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común en USA y que significa, ni 
más ni menos, que profesional. Si 
con tal nombre se nos presenta este 
joystick, nos augura tener en las 
manos un «matamarcianos 
profesional». Su precio en 
Coconuts (Tutor, 50. 28015 
Madrid) es de 3.4-00 ptas, 
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El nombre de la aventura 


Moonraker fue, hace ya tiempo, 
la vuelta de James Bond 007 a las 
pantallas. En aquella película, con 
todos los ingredientes de una 
buena aventura (el bueno, el 
malísimo, las chicas estupendas..,), 
se introducen también 
transbordadores espaciales, viajes 
al espacio, rayos láser, en fin, 
todos los ingredientes de un juego 
trepidante y actual de ordenador 
con inspiración espacial. 
Moonraker es también el nombre 
de este joystick. Sin duda, ya nos 
sonará a aventura espacial, y 
cuando sus ventosas se sujeten a la 
mesa y la carga del programa esté 
finalizada, tan sólo nos restará 
sujetamos a la silla. El Moonraker 
lo encontraréis en Coconuts 
(Tutor, 50. 28015 Madrid) por 
2.200 ptas. 



Caben más 


Cuando se trabaja con discos, 
surge la necesidad de tenerlos 
recogidos, almacenados y 
clasificados y no revueltos por 
cualquier sitio y al alcance de 
cualquiera. Si a todo esto 
sumamos el poder hacerlo en un 
solo paquete y en un recipiente 
útil para su transporte, mejor 
que mejor. Aquí tenéis este 
archivador «Disk» para discos de 
5 Y4-, Su capacidad es de 100 
unidades, con las que tenemos 
bastante material, y cuenta con 
separadores para diferenciar los 
distintos temas. En Computer Cash 
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Es espantoso pensar en un corte 
de luz mientras trabajamos 
intensamente en un programa, ya 
sea desarrollándolo nosotros o 
utilizándolo. 
Horas de trabajo se pueden ir al 
traste por una sobrecarga de la red 
o una avería. Para solucionar estos 


su nivel 


Desde hace ya tiempo, y según 
avanza la técnica, las necesidades 
anatómicas del ser humano se 
tienen cada vez más en cuenta, de 
cara a proporcionar al hombre 
mayor comodidad en su vida 
cotidiana y en su trabajo. 
Tomemos como ejemplo esta mesa 
para ordenador Laster. 
En su superficie hay suficiente 
espacio para un equipo informático 
completo, contando con un rebaje 
horizontal para situar el teclado a 
su justa altura o, dicho de otro 
modo, de manera ergonómica. Los 
cables no quedan a la vista, pues a 
través de las patas, que son 
huecas, pasan hasta el suelo, 


- ,- -- 


& Carry (Príncipe de Verg;"-;L 
Madrid) lo encontraréis pOI í.'2.80 ptas 


problemas tenemos esta fuente de 
alimentación de emergencia. 
Mientras la luz funcione 
correctamente, la fuente almacena 
energía, pero en el momento en 
que la luz salte, en tan sólo 
cuarenta milisegundos, la fuente 
proporcionará energía suficiente 
para que, durante unos veinte 
minutos, podamos salvar el 
programa, los resultados o bien 
solucionar la sobrecarga, si está en 
nuestras manos. Se trata de la 
Ondyne Power Lab 400, y la 
encontraréis en Sprind (I,ópez oe 
Hoyos, 27. Madrid) por 99,680 
ptas. 
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Ganar en altura 


U no de los problemas que 
acucian al hombre y al desarrollo 
de la sociedad y su mundo en 
general es la falta de espacio, 
Soluciones se aportan 
constantemente, a cual más 
ingeniosa y efectiva. Si tomamos el 
mundo de la informática, nos 
encontraremos con que un 
completo pero básico equipo, 
supone unos cuantos elementos que 
normalmente se desparraman por 
encima de una mesa cualquiera, Si 
buscas algo más especial, tienes la 
mesa Microgayma. Su virtud 
reside en un ordenamiento vertical 
de los diversos elementos, de tal 
manera que en el ancho del 
teclado, pero en distintas alturas. 
se colocan Impresora, monitor, 
unidad central, teclado, papel, etc 
La encontraréis en Computer 
Cash & Carry (Príncipe de 
Vergara, Madrid) por 42.750 ptas 
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evitando líos y enganchones, 
además de contribuir al aspecto 
estético. En cuanto a su transporte, 
es ligera de peso y desmontable. 
La encontraréis en Sprind (López 
de Hovos. 27. 1\1 aorid) y su precio 
es. de 53.760 ptas, 
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Los precios que acompañan estas fotografías incluyen el 12% de 1 VA Y han sido facilitados por los comerciantes que se citan. 
Se ofrecen a título informativo al margen de toda publicidad. Pueden sufrir variaciones, 
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Primeros pasos 
en Forth 


Una de las diferencias existentes entre el Forth y otros lenguaJes 
radica en el manejo del STACK, que consiste en un tipo de memoria 
en la que podemos ir introduciendo elementos (números, caracteres, etc.) 
y tiene la característica de darnos, cuando se lo pedimos, el último 
elemento que habíamos introducido en él. Pero, c'cómo introducir un 
valor en el S7J!CK? 


Le ,ugerimo, que ante, de nada Gu-gue en la 
memoria de su Amstrad el intérprete Forth cuyo 
listado publicamos en nuestro Especial número 3. 
Es la herramienta necesaria para ir probando 
todo lo que aquí le vayamos contando. 
Un número se almacena en el STACK 
simplemente escribiendo y después pulsando 
RETURN. Por ejemplo, si escribimos: 


3 


y a continuación damos a RETURN, el número 
3 se almacena en el elemento superior, y todavía 
único, de la PILA. 
GUardemos ahora otro valor, Escriba ahora 
327 y como siempre, RETURN. El 327 se 
guardará justamente en el nuevo elemento 
superior o «tope» del ST ACK. Entonces 
tendremos ya dos posiciones llenas: en la inferior 
está el 3 que introdujimos antes y en la superior, 
la de encima, el 327 último, 
Si queremos visualizar alguno de ellos el Forth 
tiene una palabra definida que se emplea para 
hacerlo: «." (punto). Compruébelo tecleando: 


. (punto) 


seguido de RETURN. Teóricamente, le 
aparecerá en la pantalla el último número 
almacenado -el 327-. 
Vuelva otra vez a escribir el punto y esta vez, 
el intérprete Forth imprimirá el actual tope de la 
PILA, o sea, el 3, Repita la operación, Como no 
nos queda todavía algún elemento lleno en el 
ST ACK, no parece muy ilógico que el intérprete 
nos obsequie con un mensaje de error: 
Desbordamiento de la capacidad mínima del 
ST ACK. 
Si se entiende de esta forma un poco más 
claramentt' la manera en cómo se almacenan y 
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visualizan los números en este tipo de memoria 
sólo puede recordar que: «el último en entrar es 
el primero en salir», 
V amos a crear ahora una nueva «palabra» 
Forth. Este concepto es el equivalente al de 
subrutina en Basic. Escriba pues: 
* PALABRA 1 * 


Va a servir para escribir en la pantalla nuestra 
edad. 
Para invocar a esta nueva «palabra» sólo es 
necesario eso, llamarla. Teclee: 
edad 


Si aparece otra vez el mismo mensaje de error 
extendamos la conclusión que sacamos 
anteriormente a este nuevo caso: ¡hay que 
introducir un valor en el ST ACK! Escriba 
entonces: 


18 edad 


y ahora sí funciona todo correctamente, La 
«palabra» que hemos creado imprime un mensaje 
y después toma el elemento superior de la PILA 
para también visualizarlo, dejando el STACK 
vacío, 
Definamos otra nueva «palabra», En esta 
ocasión escribirá un texto parecido al que vimos 
anteriormente pero refiriéndose a la edad de dos 
personas. Si imprime dos edades, se deduce que 
para que esta «palabra» funcione correctamente 
necesitará que en el ST ACK haya almacenados 
al menos dos valores. 


* PALABRA II * 


Habíamos quedado que necesita dos 
parárnetros, así que para invocarla requeriremos 
primero introducir los dos valores de las edades 
que queremos escribir y a continuación llamar a 
la «palabra», O sea: 



Lenguajecpc 



 



4 


22 16 edades 


.. 


¿Quiere cambiar los parámetros? Pues teclee 
otros, por ejemplo: 
34 21 edades 


"" 


¿ En qué orden tendremos que colocar las 
edades? Recuerde que el primer elemento que 
sale del ST ACK es el último que se almacenó, 
así que necesitaremos introducir primero la edad 
de Pepe, ya que es la última en escribirse, y 
después la de Juan que visualizaremos en primer 
lugar. 
Dos cosas han de quedar claras en esta 
ocasión, La primera es el descubrimiento de una 
nueva palabra Forth que sirve para extraer un 
valor, precisamente el que ocupa la posición más 
alta de la PILA, y a continuación lo imprime: 
«,». Repetimos que el número se saca del 
ST ACK dejando un hueco libre después de 
visualizarse. 
La segunda es la forma de pasarle parámetros 
a una «palabra», o rutina, Forth. Se asumirá que 
los hemos situado ordenados correctamente en la 
parte alta de la PILA antes de ser invocada, ¿De 
acuerdo? 
Lo dejamos de momento, Si quiere, defina una 
«palabra» más en la que se utiliza CR para 
separar la edad de nuestros amigos PEPE y 
JUAN y dejar las cosas más claras, 
* PALABRA III * 


Si después tecleamos: 
22 45 separaedad 
la veremos en funcionamiento. Hasta pronto. 


PALABRA I 
: EDAD." TENGO". "ANNOS" 


PALABRA II 
: EDADES ." JUAN TIENE" 
PEPE" . CR ; 


ANNOS y 


PALABRA III 
: SEPARA EDAD ," JUAN TIENE" 
ANNOS" CR ." y PEPE" .." ." CR 


Para poder ejecutar los programas que a 
continuación explicamos, pueden utilizar el listado 
para lenguaje FORTH que publicamos en la 
página 12 de Amstrad Especial n. o 3 o bien, para 
todos aquellos que no compraron esta revista, 
podrán encontrado en la cinta n. o 17 de nuestra 
<:Ierie Oro que podrá ser solicitada por correo a 
nuestra redacción. 
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Movimiento de gráficos por la 
pantalla, carácter a carácter 


Con la rutina de desplazamiento de pantalla carácter a carácter; 
que ofrecemos esta semana en nuestro Curso de Código Máquina, 
cualquzera puede realizar un «scroll» de pantalla de una manera más 
rápida y fácil. 


...-J 


I 


Hace unos días veíamos en esta misma 
sección una rutina que nos proporcionaba un 
scroll, pixel a pixel, de la pantalla cuando 
trabajábamos en modo 1, 
Este programa, a pesar de realizar un 
desplazamiento suave de la pantalla, posee dos 
grandes inconvenientes, uno de ellos es que 
únicamente podemos utilizada correctamente 
cuando nos encontremos en un modo de pantalla 
determinado, en este caso el modo 1. 
El otro gran inconveniente es la gran lentitud 
de dicha rutina, ya que debe realizar gran 
cantidad de instrucciones para cada uno de los 
byte s que posee la pantalla, que son nada más y 
nada menos que 16.384. 
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Hoy realizaremos una mtina de 
desplazamiento de pantalla carácter a carácter, 
con lo cual lograremos un scroll mucho más 
rápido, y además, será utilizable para cualquiera 
de los modos de pantalla que posee el Amstrad. 
Sin embargo, se perderá en parte la suavidad 
que se conseguía con el anterior programa. 
Veamos en primer lugar cuáles son los 
parámetros necesarios para que nuestra rutina 
funcione correctamente, 
Dichos valores se deberán colocar en los 
espacios reservados para ellos en el programa, es 
decir, en los cuatro byte s que siguen a la rutina, 
que en el listado ensamblador vienen definidos de 
la siguiente manera: 



ANCHO: DEFB 50 
LÍNEA: DEFB 2 
POSIC: DEFW #0505 


El primero de ellos, es decir, la variable 
"ANCHO", indicará el número de byte s en 
forma horizontal que serán desplazados por la 
pantalla; debemos tener en cuenta que en cada 
uno de los modos los caracteres están formados 
por distinto número de bytes. 
A continuación se exponen los byte s que 
forman cada carácter en los distintos modos de 
pantalla, 
MODO 2.....1 CARÁCTER....1 BYTE 
MODO 1.....1 CARÁCTER....2 BYTES 
MODO 0.....1 CARÁCTER... ,4 BYTES 


Se debe entender que este número representa 
los bytes de cada carácter en forma horizontal, ya 
que en sentido vertical todos los caracteres están 
formados por ocho bytes, independientemente del 
modo de pantalla utilizado. 
Otra de las variables del programa es la que 
está representada por "LÍNEA", ésta indicará el 
número de líneas sobre las cuales se debe efectuar 
el scroll. 
Por último, tenemos la variable "POSIC" que 
nos indicará a partir de que coordenadas de 
pantalla se desea efectuar el scroll. 
Esta variable deberá tomar el valor #0000 para 
la esquina superior izquierda de la pantalla, se 
puede decir que toma los mismos valores que la 
función "LOCA TE" de Basic, pero restando una 
unidad a la coordenada horizontal y vertical. 
Resumiendo y a modo de ejemplo, podemos 
decir que con los valores actuales que contiene el 
programa, se lograría un scroll a partir de las 
coordenadas 5,5 (6,6 para LOCATE) de una 
anchura de 50 byte s y una altura de dos líneas 
(es decir, de 16 bytes de altura). 


Funcionamiento del programa 


Veamos ahora cómo funciona nuestro 
programa: en primer lugar se carga el registro 
doble HL con el contenido de la variable 
"POSIC", y a continuación se hace una llamada 
a una rutina del firmware: 


CALL #BC1A 


Como recordaremos, esta rutina nos devuelve, 
en el mismo registro HL, la dirección de pantalla 
correspondiente a dichas coordenadas, 
Posteriormente, cargamos en el acumulador la 
variable "LÍNEA", introduciéndola a 


Código 
I -- I1 - 


continuación en el registro B, para formar así un 
bucle que nos indicará las filas sobre las cuales se 
debe efectuar el desplazamiento, 
Seguidamente se forma otro bucle, que se 
repetirá ocho veces, ya que cada una de las filas 
de la pantalla está compuesta por ocho bytes. 
En este bucle es donde se realizará el trabajo 
de scroll de pantalla, Para ello se pasan al 
registro doble DE, los valores actuales del 
registro HL, que es el que contiene la dirección 
de pantalla. 
LDD,H 
LD E,L 
Ahora cargamos en el acumulador el contenido 
de la dirección actual de pantalla, y lo 
preservamos para recuperado más tarde: 
LD A,(HL) ; * 
PUSH AF ;* 


10 FOR N=&AOOO 10 &A034 
20 READ A:SUMA=SU
A+A 
30 POKE N,A 
40 N£XT L 147 
 THEN PRIN1 'ERROR EN DATAS" 
50 IF S\JI'IAOIJ L 58 
GO DATA 42,SO.lGO,20S,

.lS88 
70 DATA 49.160.71.19
.'


1;45 35 
SO DATA 191.229
S4.9
1.
bl; , 
90 DATA Si3,4B.lbO.
.O
791


\ 
 
100 GATA 176,241.1
,
LS
11';;-80 
11 
 DATA 2S,19311G.

l,22

- l ' 

 
v r," 1 " 2"
 '\> -''1 
i"i) DATA O,2S,1:i:), 1;., l_.
. ,- 
1;0 DATA 2.5.5,0,0.0.0 


A continuación incrementamos el registro HL, 
y cargamos en el acumulador el contenido de la 
variable "ANCHO", que es la que indica el 
número de bytes en sentido horizontal que deben 
desplazarse. 
INC HL 
LD A,(ANCHO) 
Seguidamente, debemos cargar en el registro 
doble BC, el número de bytes a «scrollean,; para 
ello cargamos B con cero y en el registro C 
cargamos el contenido del acumulador, con lo 
cual se puede efectuar la operación de 
movimiento del bloque de pantalla. 
LD B,O 
LDC,A 
LDIR 
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Código 
MAQuINA 


Una vez hecho esto, debemos recuperar el 
contenido del acumulador que se había 
preservado anteriormente y cargado en la 
dirección a la que apunta el registro doble DE, es 
decir, el último byte de la línea desplazada. 
POP AF 
LD (DE),A 
Con ello se consigue el efecto de rotación de la 
pantalla; es decir, que lo que desaparece por la 
parte izquierda, se recupera por la parte derecha. 
En el caso de que se quiera efectuar un scroll 
con pérdida del contenido de la pantalla, 
únicamente deberíamos suprimir del listado del 
programa estas dos últimas líneas, junto con la 
marcada con un asterisco "*", 


Sólo con programas muy depurados 
y en Código Máquina, es posible 
mover bloques de pantalla con un 
efecto que resulte real. 


Una vez producido el desplazamiento en una 
lína, se debería recuperar la dirección de pantalla 
anterior, a la cual se deberá sumar el valor 2048, 
para así obtener la dirección del siguiente byte de 
pantalla en sentido vertical. 
POP HL 
LD DE,2048 
ADD HL,DE 
Cuando se haya producido el scroll de los ocho 
bytes que contienen cada una de las líneas, 
deberíamos calcular la dirección de la siguiente 
línea de pantalla, 
Esto lo haremos recuperando la dirección 
inicial de la anterior línea, y sumándole el valor 
80. 
POP HL 
LD DE,80 
ADD HL,DE 
Una vez finalizado este último bucle, se habrá 
conseguido el desplazamiento de la parte de la 
pantalla dada en los parámetros iniciales, un byte 
hacia la izquierda. 
Como se podrá comprobar, la velocidad de 
ejecución de esta rutina es realmente rápida, si 
tenemos en cuenta que la pantalla de nuestro 
Amstrad está compuesta por un elevado número 
de bytes. 
Dada la gran versatilidad de esta rutina, ya 
que podemos elegir la zona de pantalla a 
desplazar, así como sus dimensiones y las 
coordenadas iniciales, se podría utilizar como 
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260 OJNZ Bue 
270 pOP HL 
2BO LO OLBO 
290 ADD HL,DE 
300 POP Be 
310 DJNZ BUCl 
320 RET 
330 ANCHO: DEFB 50 
340 LINEA: OEFB 2 1-- 
350 POSIC: OEFW #0505 


ayuda en cualquier programa Basic o en Código 
Máquina que deseemos realizar, 
Como podemos ver, aquí únicamente estamos 
estudiando el scroll hacia la derecha, pero 
realmente también nos puede ser necesario un 
desplazamiento hacia la izquierda. 
Pues bien, esta tarea se la reservamos a todos 
los que sigan este Curso de Código Máquina, 
aunque sí daremos alguna pista que muchos 
estarán adivinando, 
Como hemos visto, nuestra rutina utiliza una 
instrucción de desplazamiento de bloques como 
es: 


1- 


LDIR 


Por tanto, para efectuar el mismo trabajo, pero 
en sentido contrario, deberemos utilizar la 
instrucción: 


, 


LDDR 


Teniendo en cuenta que en este caso 
deberemos indicar en los registros doble HL y 
DE, la dirección más alta a partir de la cual 
deseamos trasladar los datos. 
Por hoy no resta nada más por decir. 
Únicamente, desear suerte en la confección de la 
rutina de desplazamiento a la derecha de la 
pantalla, 
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